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9100 



0080 



0001 
0002 
0004 
0008 
0010 



0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0080 



;SY0014-28/10/77 - 1000 HRS. 

;**** THIS IS THE ROM VERSION *********** 

; SY0014 DATA COMM MODUL STANDARD 



WAZ HP 21 WX 



COWON EQUATES - CM34 - 6/10/76 - 1315 HRS. 

TRAM ESU 110400Q ; FAST RAM LOWER LIMIT 
*************************************** 

KBDCSW - KEYBOARD DATA COnn SWITCHES * 
*************************************** 

LDUP EQU 200Q ;HALF/FULL DUPLEX 

************************************** 

KBJMPR - KEYBOARD INTERFACE JUMPERS * 

************************************** 

JUMPERS SENSED AS 0* WHEN INSERTED 



; ALL 


JUMPERS ARE 


NORMALLY INSERTED 


CNDIS 


EQU 


001 a 


;CONTROL CODE DISABLE 


r 






<0=DISABLED) 


SLDIS 


EQU 


002Q 


;SPOW LATCH DISABLE 


r 






(0=DISABLED) 


LNWRP 


EQU 


004 Q 


;COLUMN 80 AUTO CR,LF 








(0=ENABLED) 


P6STR 


EQU 


010Q 


;PAGE MODE STRAP 


• 






(0=LINE-FIELD HOOE) 


LFPOS 


EQU 


20Q 


;LINE FEED POSITION 


r 






(0 = POSITION LINE FEED 


t 






AT START OF NEXT I/O 


* 






READ 


r 






1 = PUT LINE FEED AT END 


r 






OF RECORD) 


FTSND 


EQU 


40Q 


;9600 BAUD OATACOM SHIFT 


• 






(0=9600 BAUD FOR ESC,E) 


HDSHK 


EQU 


100U 


;BLOCK TRANSFER HANDSHAKE 


#■ 






(0 = FOLLOW DC2SN0 SETTING 


*- 






1 = SEND DC2 BEFORE DATA) 


D2SND 


EQU 


200Q 





**** 

KBJ 

**** 

TTRW 
RTRM 
TEST 
TWRP 
NTAL 
JMPO 
**** 

KBJ 

**** 



***** 

MP2 - 
***** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
***** 

MP3 - 
***** 



********** 

SECOND SE 
********** 

1Q 
2Q 

4Q 

I0e 

20Q 
200Q 
********** 

THIRD SET 
**** ****** 



(0 = SEND DC2 ON ENTER 

AND FUNCTION KEY IN 
BLOCK («ODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 

*********************** 

T OF KEYBOARD JUMPERS * 
*********************** 

;AUT0' TERMINATE ON "ENTER" 
;CLEAR TERMINATOR ON TRANSMI 
;INHIBIT TERMINAL SELF-TEST 
/INVERT SENSE OF EDIT WRAP 
;SEND ALL CODES TO PRINTER 
;DATA COMM JUMPER 
********************** 

OF KEYBOARD JUMPERS * 
********************** 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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yA^i 
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0001 
0002 
0004 
0008 
0010 

0020 

0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 



0001 
0002 
0004 



0003 



0000 

0001 
0002 
0010 
0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0001 
0002 



JMP1 
JKP2 
JMP3 
JMP4 
DCST 



EQU 
EQU 
EQU 
EQU 
EQU 



1Q 

2Q 

4Q 

10Q 

20Q 



ERRORS = PAGE 2 



;OATA COMM JUMPERS 

r • 



SETCH EQU 40Q 
CEKCC EQU 100Q 
FCPTY EQU 200Q 



***** 
CMFL 
***** 
KTRG 
SWRP 
CRST 
FSKY 
PiSET 

VMDE 
***** 

ERRF 
***** 

MERR 
STOK 
RCHK 
***** 

INTF 
***** 
RINT 



**** 

GS - 

**** 

ESU 

EQU 

EQU 

EQU 

EQU 

EQU 

**** 

L6 - 
**** 

EQU 

EQU 

EQU 

**** 

LG - 

**** 
EQU 



**** 
COM 

**** 
1Q 
2Q 
4Q 
10 
20 
40 

**** 

ERR 
**** 

1Q 

20 

4G 

**** 

INT 

**** 

3 



***** 
HON F 
***** 



Q 

***** 

OR FL 
***** 



***** 

ERRUP 
***** 



;INHIBI 

(0 = 
;TURN 

(0 = 
;H0NIT0 

(1 = 
;FORCE 

(1 = 
****** 

LAGS * 

****** 

BLOCK 

INSERT 

FORCE 

DEFINE 

REMOTE 

TERMIN 

***** 

AGS * 
***** 

;0ATACO 
;SELF-T 
;LOAi)ER 
******** 

T FLAG * 
******** 

;TIflER 



T DATA COMM SE 

DISABLED) 

N "CH" CONTROL 

OFF^ 1 = ON) 

R CC CONTROL L 

ENABLED) 

PARITY ON/NO I 

ENABLED) 



LF-TEST 

LINE 
INE 
N CHECK 



TRANSFER TRIGGER 
WITH WRAP AROUND 

FULL TERMINAL RESET 
SOFT KEY MODE ENABLE 
MODE ENABLED 

AL IN RECEIVE MODE 



M CI = ERROR) 
EST (0 = ERROR) 
CHECKSUM (0 = ERROR) 



INTERRUPT 



********** 

PRCCTL - 
********** 

lACK EQU 



KRON 
MIEN 
lOFF 
lOFF 
OLL 



EQU 
EQU 
EQU 
EQU 
EQU 



v*v*v*v* 

TROM EQU 
********** 

MDFLG1 - 
********** 

PFNC EQU 



SCHR 

MLOK 

RMAT 

DIT 

LECT 

CORD 

ORGN 



EQU 
EQU 
EQU 
EQU 
EQU 
ESU 
EQU 



********** 

MDFLG2 - 
********** 

PSLK EQU 

KMDE EQU 



****** 

PROCES 
****** 

OQ 

1Q 

2Q 

20Q 

40Q 

100Q 
SET TO 

200Q 
****** 

TERM IN 
****** 

1Q 
2Q 
4Q 

10Q 
20Q 
40Q 
100Q 
200Q 
****** 

TERMIN 
****** 

1Q 
2Q 



****** 

SOR CO 
****** 



r 
f 
r 

zero' 

****** 

AL MOD 
****** 



****** 

AL MOO 
****** 



******** 

NTROL FL 
******** 

ACKNOWLE 

(BIT 1 
SET TIME 
RE-ENABL 
DISABLE 
DISABLE 
POLL CTU 
FOR ROM 
DISABLE 
******** 

E FLAGS 
******** 

DISPLAY 
INSERT C 
MEMORY L 
FORMAT M 
EDIT MOD 
SELECT M 
RECORD M 
FOREIGN 
******** 

E FLAGS 
******** 

CAPS LOC 
BLOCK MO 



***** 

AGS * 

***** 

D6E TIMER 
OFF) 
R ON 

E TIMER IN 
DATA COMM 
TIMER INTE 
INTERRUPT 
VERSION * 

(D/ENABLE 
*** 

1 * 

*** 

FUNCTIONS 
HARACTER E 
OCK ENABLE 
ODE ENABLE 
E ENABLED 
ODE ENABLE 
ODE ENABLE 
MODE ENABL 
*** 

2 * 
*** 

K ENABLED 
DE ENABLED 



INTERRUPT 



TERRUPT 
INTERRUPT 
RRUPTS 
S 

v*v*v*v* 

(0) ROM 



ENABLED 

NABLED 

D 

D 

D 
D 
ED 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0004 
0008 
0020 



OOOA 
0008 



9165 
9168 

FFFF 
OOFF 
FFOO 

FFFE 
FFFD 
FFFC 
FFFB 
FFFA 
FFF9 
FFF8 
FFF7 
FFF6 
FFF5 
FFF4 
FFF3 
FFF1 
FFEF 
FEED 
FFEB 
FFE9 
FFE7 
FFE5 
FFE3 
FFE1 
FFEO 
FFDE 
FFDD 
FFDC 
FFOB 
FFOA 
FFD9 
FFD8 
FFD7 
FF05 
FF04 
FFD2 
FFD1 



FFDO 



ATOLF EQU 
RMOTE EQU 
WBSR EQU 



4Q 

10Q 

40Q 



;AUTO LF ENABLED 
REMOTE ENABLED 
jWRlTE-BACKSPACE-READ MODE 

; RADIX - BASE OF INPUT PARAP1ETER FOR ESC SEQ * 

• ********************************************** 

DCRDX EQU 10 ;DECIMAL NUMBERS 

OTRDX EQU 8 ;OCTAL NUMBERS 

• ******************* 

; COMHON VARIABLES * 
;******************* 



ITVEC 
SNVEC 



EQU 

EQU 



FTRAW+145Q ;CENTRAL INTERRUPT VECTOR 

ITVEC+3 ;FOREIGN TERMINAL DISPLY SCA 



CMMON EQU 
CBASE EQU 
CSTOR EQU 



OSPST 
TMTYP 
KDCSW 
KJWPR 
KJMP2 
KJMP3 
CFLGS 
ERFL6 
ITFL6 
PCCTL 
MFLG1 
MFLG2 
MGPTI 
MGPT2 
MGPT3 
MGPT4 
M6PT5 
MGPT6 
M6PT7 
MGPT8 
CIVEC 
CIJMP 
IDATA 
ICSGN 
IPSGN 
PARM1 
PARM2 
PARM3 
PARM4 
PARM5 
PARM6 
RADIX 
RNGTA 
ECFLG 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



177777Q 

CM»nON/256 

CBASE*256 

CMMON-1 
DSPST-1 
TMTYP-1 
KDCSW-1 
KJMPR-1 
KJMP2-1 
KJMP3-1 
CFLGS-1 
ERFL6-1 
ITFL6-1 
PCCTL-1 
MFLG1-1 
MFL62-2 
MGPTI -2 
M6PT2-2 
MGPT3-2 
MGPT4-2 
M6PT5-2 
MGPT6-2 
MGPT7-2 
MGPTS-2 
CIVEC-1 
CIJMP-2 
IDATA-1 
ICS6N-1 
IPSGN-1 
PARM1-1 
PARM2-1 
PA Rins-l 
PARM4-1 
PARM5-2 
PARK6-1 
RADlX-2 
RN6TA-1 



;UPPER LIMIT OF COMMON AREA 
;MSB OF COMMON ADDRESSES 
;MSB ADJUSTMENT FACTOR 

;0ISPLAY REFRESH START PTR 
;TERMINAL TYPE NUMBER 
;KEYBOARD DATACOM SWITCHES 
;KEYBOARD STRAPS 

;SET 2 

;SET 3 
;COM^ON FLAGS 
;ERROR FLAGS 
;INTERRUPT FLAG 
;PROCESSOR CONTROL FLAGS 
;TERMINAL MODE FLAGS 1 

;AND 2 
;MESSA6E POINTERS 



CTU INTERRUPT VECTOR 

JUMP CODE FOR VECTOR 

ESQ SEQ PARM ACCUMULATOR 

SIGN FOR PARAMETER 

PARAMETER SIGN 

ESCAPE SEQUENCE PARAMETERS 



RTTMR EQU ECFL6-1 

; ********* 

; END OF COMMON EQU 
:*******♦* 



;RADIX OF PARAMETERS 
;CHAR FUNCTION TABLE ADDRESS 
;ESCAPE SEQUENCE FLAG 
= 0, NOT IN ESCAPE SEQ 
# 0, ESC SEQ IN PROGRESS 
;SOFT RESET TIMER 
*************** 

ATES * 

*************** 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 
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0001 
0002 
0004 
0008 



0010 
0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0080 
0070 



8300 
8300 



8100 



8100 
8120 
8121 
8140 
8160 



8140 
8160 



; **********1eikit***ie*** *********** 
; DCSTAT - DATACOW STATUS BITS * 
; ******************************* 

DCDP EQU 1Q ;DATA PRESENT 

DCTBE EQU 0026 ;TRANSHIT BUFFER 

DCOE EQU 0046 ;OtfERRUN ERROR 

DCPE EQU QIOQ ;PARITY ERROR 



Ef»!PTY 



THE FOLLOWING 
1 = OFF 



DCCF 
DCCB 
DCSB 

OCCC 



EQU 
EQU 
EQU 



20Q 
40Q 

looe 



EQU 200Q 



ARE INTERPRETED AS = ON AND 



;CF - RECEIVED CARRIER 

;CB - CLEAR TO SEND 

;SB - SECONDARY RECEIVED 

; CC - DATA SET READY? 



DAT 



; ************************* 

; DCFLGS - DATACOM FLAGS * 
• ************************* 



DCCA 


EQU 


1 


TNMOD 


EQU 


2 


BNMOD 


EQU 


4 


GOBIN 


EQU 


10Q 


F9600 


EQU 


20Q 


WCMOD 


EQU 


40Q 


SECHO 


EQU 


100Q 


FRPAR 


EQU 


200Q 



;REQUEST TO SEND (0 = SET) 

/TRANSPARENT MODE 

;BINARY RODE 

;60 TO BINARY MODE ON ENQ-AC 

;FAST BINARY MODE 

;MAIN CHANNEL (0 = ENABLED) 

;ECHO SUPPRESS (1 = ENABLED) 

;FORCE PARITY MODE 



;********************* 

; I/O MODULE EQUATES * 
********************** 



IBASE EQU 2006 
POCSR EQU 160Q 
; *********** 

; KEYBOARD * 



;I/0 ADDRESS 
/PROCESSOR 



MSB'S 
PORT 



************ 



lOKB 
IKBLD 



EQU 
EQU 



C3e+IBASE)*256 /MODULE 11 BASE 
I0K8+0Q ;SET KEYBOARD LED 'S 



ADDRESS 



DATACOM * 
********** 

EQU 



lODC 



(ie+IBASE)*256 /MODULE 10 BASE ADDRESS 



INPUT ADDRESSES 



IDCDI 
IDCST 
IDCS2 
IDCPC 
DCTL2 



EQU 
EQU 
EQU 
EQU 
EQU 



lODC+Oe 

I0DC+40Q 

I0DC+41Q 

I0DC+100Q 

I0DC+140Q 



/DATACOM 
/DATACOM 



DATA IN 

STATUS IN 
STATUS W/TBE = THRE AND TRE 
/DATACOM STRAPS IN 
/ALTERNATE DATACOM CONTROL 



OUTPUT ADDRESSES 



lOCCT 
IDCDO 



EQU 
EQU 



I0DC+100Q 
I0DC+140Q 



/DATACO»l 
/DATACOM 



CONTROL OUT 
DATA OUT 



DATACOM CONTROL BITS 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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20 

20 

20 
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20 
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OOOE 
0040 
0000 
0010 
0020 



0008 
0080 
003E 



7000 
7002 
7005 
7008 
700B 
700E 
7011 
7014 
7017 
701A 



0OC3 



0000 
0001 
0002 
0003 
0004 
OOOA 
OOOD 
0005 
0006 
0012 
0018 
001 E 
007F 



0080 
0082 
OOCC 
OOCE 



91C0 
0091 
91BF 
91BD 
91BB 
91B9 



B9600 


EQU 


16Q 


DCSA 


EQU 


100Q 


DCOP 


EQU 





DCEP 


EQU 


20Q 


OCNP 

• 


EQU 


40Q 


CDOFF 


EQU 


10Q 


DCCH 


EQU 


200Q 


BUDPT 


EQU 


0760 
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;9600 BAUD 

;TUKN ON SECONDARY TRANSMIT 

;ODD PARITY 

;EVEN PARITY 

;N0 PARITY 

;TURN OFF CD (USE W/DCCTL2) 
;CH BIT IN CONTROL 
;BAUD RATE/PARITY MASK 



; KEYBOARD ENTRY VECTOR POINTERS 

ZBBAS EQU 70000Q ;KEYBOARO START ADDRESS 

ZNIKB EQU ZBBAS+2 ;INITIALIZE KEYBOARD 

ZETKY EQU ZNIKB+3 ;GET KEYBOARD KEY 

ZBCTL EQU ZETKY+3 ;PERFORM KEYBOARD CONTROL 

ZBMON EQU ZBCTL+3 ;MONITOR KEYBOARD 

ZTM01 EQU ZB!^0N + 3 ;SET MODE 1 FLAGS 

ZLMD1 EQU ZTMD1+3 ;CLEAR MODE 1 FLAGS 

ZBELL EQU ZLMD1+3 ;SOUND THE BELL 

ZTXMT EQU ZBELL+3 ;SET TRANSMIT LED 

ZLXMT EQU ZTXMT+3 ;CLEAR TRANSMIT LED 



**** 

MIS 
**** 

MPCD 

ASC 

**** 

NULL 
OH 
TX 
TX 
OT 
F 
R 

NQ 
CK 
C2 
CAN 
S 

DEL 
**** 
DIS 
**** 
RMAL 
NVRS 
OL 
OP 
**** 

DAT 



******************** 

CELLANEOUS EQUATES * 
******************** 

EQU 303Q ;"JMP' 
********************** 

II CHARACTER EQUATES * 
********************** 



CODE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OQ 

1Q 

2Q 

3Q 

4Q 

12Q 

15Q 

5Q 

6Q 
22Q 
30Q 
36 Q 
177Q 



;NULL 
;START OF 
;START OF 
;END OF T 
;END OF T 
;LINE FEE 
;CARRIAGE 



DEVICE 
CANCEL 
RECORD 
DELETE 



********************** 
PLAY CONTROL EQUATES * 
********************** 



EQU 
EQU 
ECU 
EQU 



200Q 
202Q 
31 4Q 
3166 



START NO 
START IN 



END 
END 



OF 
OF 



HEADER 

TEXT 
EXT 

RANSMISSION 
D 

RETURN 



NTL 2 

INE 

EPARATOR 

RUBOUT) 



RMAL VIDEO 
VERSE VIDEO 
INE FLAG 
AGE FLAG 



********************** 

ACOM LOCAL VARIABLES * 
********************** 

DSTOR EQU FTRAM+300Q 

DBASE EQU DSTOR/256 

DSTAT EQU DSTOR-1 ;DATACOM 

DBPTR EQU DSTAT-2 ;DATACOM 

DSPTR EQU DBPTR-2 ;DATACOM 

DBFBG EQU DSPTR-2 ;START AD 



PTR 



STATUS BITS 
BUFFER UNLOAD 
LOAD POINTER 
DR OF DATACOM BUFFE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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91B8 


9lB6 


91B5 


91B4 


91B3 


9181 


91B0 


91AF 


91AE 


91AD 


91AC 


0060 


0080 



0080 

0001 
0002 

0003 



0004 
0008 



NS FOLLOWING FLAGS: 
M HONITOR VECTOR 
ODE FOR VECTOR 
FOR XMIT TURNAROUND 
FOR SIGNAL SETTLING 
OUND EXIT ADDRESS 
EST, PARITY 
EST, TIP^E OUT COUNTER 
PARITY MASK 
DATA CHAR FOR MC 
L WD FOR CH,CA,NP 

M BUFFER SIZE 

L PURPOSE ASYNC FLAG 



NEW STRAPPING OPTIONS WHEN 202C WAIN CHANNEL 
PROTOCOL IS DESIRED. THESE STRAPS ARE 
AVAILABLE FROM THE NEW KEYBOARD I/F AND 
ARE SWITCHES R - Z WHICH ARE CURRENTLY 
NOT USED BY THE FIRMWARE FOR DATAcOM. 



SSTRP EQU 200Q ;(R) = ENABLE CIRCUIT ASSURANCE 

(SB) 
; 1 = DISABLE CIRCUIT ASSURANCE 



DFLGS 


EQU 


DBFBG-I 


;C0NTA1 


DMVEC 


EQU 


DFLGS-2 


;DATACO 


DMJMP 


EQU 


DMVEC-1 


;JUKP C 


XTDLY 


EQU 


DWJKP-1 


;LI!^IT 


DOLAY 


EQU 


XTDLY-1 


; DELAY 


DCTEX 


EQU 


DOLAY-2 


;TURNAR 


TARIT 


EQU 


DCTEX-1 


;SELF T 


TOCNT 


EQU 


TARIT-1 


;SELF T 


FMASK 


EQU 


TOCNT-1 


; FORCE 


EDCHR 


EQU 


FMASK-1 


;ENO OF 


DCCT 


EQU 


EDCHR-1 


;CONTRO 


DBFSZ 


EQU 


96 


;DATACO 


6ASYC 


EQU 


200Q 


zGENARA 



SXSTP EQU 1Q 



;{S) = USE STX FOR STRT OF DATA 
1 = NO START OF DATA CHAR 



EXSTP EQU 2Q ;(T) = USE EOT FOR END OF DATA 

1 = USE ETX FOR END OF DATA 



MCHAN EQU 3Q 



CKSTP EQU 4Q 

CSTRP EQU 10Q 

NODCST EQ 208 

SETCH EQU 408 



;00 = NON-MAIN CHANNEL PROTCL 
01 = MAIN CHNL W/O SD,ED = EOT 

10 = !^AIN CHNL W/STX AS SD^ 

11 = MAIN CHNL W/ETX AS £0 

;<U) = ENABLE CPU BREAK ON SB 
1 = DISABLE CPU BREAK 

;(V) = ENABLE CF DETECT 
1 = DISABLE CF DETECT 

(W) = ENABLE DC SELF TEST 
1 = DISABLE DC SELF TEST 

(X) = SET CH OFF 
1 = SET CH ON 



CHEKCC EQ 100B (Y) = USE CB FOR XMIT LED 

1 = USE CC FOR XMIT LED 

FRCPTY EQ 200B (Z) = DISABLE FORCE PARITY 

1 =^ ENABLE FORCE PARITY 



7800 



ORG 74 000Q 



START IN ITS OWN BLOCK 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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7800 


50 


7801 


78 


7802 


11 


7803 


1F 


7804 


IE 


7805 


03 



7806 
7807 



7808 
780B 
780E 
7811 
7814 
7817 
781A 
7810 
7820 
7821 
7822 
7823 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOD 



7826 
7826 
7827 
7828 
782B 
782C 
782E 
7831 
7832 
7835 
7836 



00 
00 



C36B79 

C36F79 

C3B591 

C3557C 

C3E57D 

C3E279 

C38878 

C3EF7A 

AF 

C9 

00 

C3037D 



F5 

C5 

3A2 081 

47 

E601 

CA8478 

E5 

210081 

4E 

3AB891 



TIG6R: 
RCSEP: 
BKTRm: 
BJMSK: 



D8 

t>B 

D^ 
DB_ 

DB 

DB 



•P' ; VALID 
7400GQ/256 
021Q ;DC1 



ROM ID 



FOR TRANSFER TRIGGER 



037Q 



;US FOR RECORD SEPARATOR 



DJMK2: 



OB 
OB 



00 OQ 

OOQ 



;kb FUk BLOCK ItRNlNATOR 
;OATA COMM JUMPER ALTER 
INHIBIT MASK - SET TO 1 
IN APPROPRIATE BIT (0-7) 
TO INHIBIT ALTERATION OF 
JUMPERS S-Z BY ESCAPE 
SEQUENCE 

SET TO INHIBIT S,T 
;STRAP R 



OATACOM ENTRY VECTORS 



J MP 

JMP 

JMP 

JMP 

JMP 

JKP 

JRP 

JMP 

XRA 

RET 

DB 

JMP 



IITOC 
II20C 
DMJMP 
OCCTL 
DCTST 
6ETDC 
PUTOC 
6TBIN 
A 

OQ 

TM81N 



;INITIALIZE DATACOM 
;INITIALIZATION CONTINUATOR 
:G0 TO MONITOR ROUTINE 
^PERFORM CONTROL FUNCTIONS 

DATACOOM SELF TEST 
;GET A DATACOM CHARACTER 
;OUTPUT A CHARACTER TO DATA C 
GET A BINARY BYTE 



;NOOP START BINARY ROUTINE 
;TERMINATE BINARY OUTPUT 



DATACOM CONTROL CALL CODES 



CRTRG 
STTRG 
RETOC 
STREM 
STLCL 
PTBRK 
DSCNT 
EDBLK 
STMON 
STNRW 
POMPT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 




1 
2 
3 
4 
5 
6 
7 
8 
9 
13 



CLEAR BLOCK TRANSFER TRI6GE 

SET BLOCK TRANSFER TRIGGER 

RESET OATAcOM 

SET REMOTE MODE 

SET LOCAL MODE 

OUTPUT BREAK SIGNAL 

MODEM DISCONNECT 

SEND ED IF MAIN CHANNEL 

ENTER MONITOR MODE 

ENTER NORMAL MODE 

SEND 0C2 PROMPT 



A, FLAGS 



******************************* 

DATACOM INTERRUPT PROCESSING * 
******************************* 

DINTR EQU $ 

PUSH PSW 
PUSH B 
LDA IDCST 
MOV B,A 
ANI DCDP 
JZ IT170 
PUSH H 

LXI H^IDCDI 
MOV C,M 
LDA DFL6S 



SAVE 

SAVE B,C 

GET DATA COMM STATUS 
SAVE STATUS IN 8 
DATA PRESENT? 
NO - EXIT 
YES - SAVE H,L 
GET DATA FROM DATA COMM 
;1NT0 C-RE6ISTER 
;CURRENT MODE? 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 



FTi g ?n 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7839 
783A 
783C 
783F 
7840 
7842 
7845 
7847 
784A 
784B 
784D 
7850 
7851 
7853 
7856 
7856 
7857 
7859 



785C 
785C 
785E 
7861 
7862 
7864 



7865 
7865 
7868 
786B 
786C 
786F 
7870 
7872 
7873 
7874 
7876 

7877 
7877 
7878 
787B 
787E 
787F 
7882 



6F 

E606 

C25678 

79 

E67F 

CA8378 

FE7F 

CA8378 

78 

E608 

CA5678 

70 

E680 

CA5C78 

78 

E604 

CA6578 



GEFF 

21F7FF 

7E 

F601 

77 



2ABB91 

3AB991 

80 

C27778 

70 

C660 

6F 

7C 

CEOO 

67 



2B 

22BB91 

3ABD91 

BO 

CA5C78 

71 



7883 


El 


7884 




7884 


CI 


7885 


F1 


7886 


FB 


7887 


C9 



MOV 

ANI 

JNZ 

MOV 

ANI 

JZ 

CPI 

JZ 

MOV 

ANI 

JZ 

MOV 

ANI 

JZ 

IT020 EQU 
MOV 
ANI 
JZ 

; ********** 

; OATA COMM 
; ********** 

IT050 EQU 
MVI 
LXI 
MOV 
ORI 
MOV 



L,A 

TNMOO 
IT 020 
A^C 
177Q 
IT160 
ADEL 
IT160 
A^B 
OCPE 
IT020 
A,L 
FRPAR 
IT050 
$ 

A,B 
OCOE 
IT100 
****** 

ERROR 
****** 

$ 
C,377Q 
HvERF 
A,M 
OMERR 
M,A 



- JUM 



ERRORS = PAGE 8 



;SAVE DCFLGS 
+BNMO0 

;TRANSPARENT OR BINARY 
;ASCII - HANDLE PARITY 

;REMOVE PARITY BIT 

;RETURN IF NULL 



; IGNORE RUBOUTS 
;GET PARITY BIT 
/PARITY ERROR? 
;N0 JMP 
;GET DCFLGS 

;IS FORCE PARITY IN EFFECT? 
;N0 - JMP PE ERROR 
CHECK FOR BUFFER OVERWRITE 
RECALL STATUS 
OVERWRITE? 
;N0 - STORE CHAR 
******************************** 

- STORE ALL ONES AND SET FLAG * 
******************************** 

;DATACOM ERROR 
;STORE ALL ONES 
LG ;SET ERROR FLAG 



************************************** 

STORE CHARACTER IN DATA COMM BUFFER * 
************************************** 

T100 EQU $ 



LHLD 

LDA 

CMP 

JNZ 

MOV 

ADI 

MOV 

MOV 

ACI 

MOV 



ITISO 



EQU 
OCX 
SHLD 
LDA 
CMP 
JZ 
MOV 
******* 

EXIT * 
******* 



DSPTR 

OBFBG 

L 

IT130 

A,L 

DBFSZ 

L,A 

A,H 



H^A 



H 

OSPTR 

DBPTR 

L 

IT050 

M, C 



;GET THE LOAD POINTER 
;GET LSB OF BUFFER START ADD 
/REACHED START OF BUFFER? 
;N0 - STORE THE CHARACTER 
;YES - SET TO BUFFER END + 1 



IT160 
IT170 



EQU 

POP 

EQU 

POP 

POP 

EI 

RET 



$ 
H 

$ 
B 
PSW 



/DECREMENT TO NEXT LOCATION 

/STORE THE NEW POINTER VALUE 

/FETCH THE UNLOAD POINTER 

/BUFFER OVERFLOW? 

/YES - STORE ALL ONES 

/NO - STORE THE NEW CHARACTE 



/RESTORE REGISTERS AND 

/PROCESSOR STATUS 

/RE-ENABLE INTERRUPTS 
/RETURN 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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7888 




7888 


E5 


7889 


6F 


788A 


3AAC91 


788D 


67 


788E 


3AB891 


7891 


OF 


7892 


02A078 


7895 


21F7FF 


7898 


7E 


7899 


F601 


789B 


77 


789C 


El 


789D 


97 


789E 


37 


789F 


C9 


78A0 




78A0 


E608 


78A2 


3E2E 


78A4 


C2AC78 


78A7 


3AFCFF 


78 AA 


E63E 


78AC 




78AC 


B4 


78A0 


324081 


78B0 


3A2081 


78B3 


E602 


78B5 


C2C378 


78B8 


C5 


78B9 


D5 


78BA 


CD067B 


78BD 


D1 


78BE 


CI 


78BF 


El 


78C0 


97 


78C1 


30 


78C2 


C9 


78C3 




78C3 


3AAE91 


78C6 


B5 


78C7 


326081 


78CA 


3AB891 


78CD 


67 



****** **************** 

PUTOC - DATACOM OUTPUT ROUTINE 

ENTRY: A = CHAR TO BE OUTPUT 
NC - NORMAL CHAR 
C - LAST CHAR IN BLOCK 

EXIT : A DESTROYED 

MC - NO ERRORS DETECTED 

Z - CHARACTER ACCEPTED 

N2 - WAIT 
C - DATACOM ERROR 

Z - TRANSMIT nOOE, NO ERROR 



PUTOC 



PC004 



PC005 



PC020 



MS6 



EQU 

PUSH 

MOV 

LOA 

MOV 

LDA 

RRC 

JNC 

LXI 

MOV 

ORI 

MOV 

POP 

SUB 

STC 

RET 

EQU 

AN I 

MVI 

JN2 

LDA 

AMI 

EQU 

ORA 

STA 

LDA 

ANI 

JNZ 

PUSH 

PUSH 

CALL 

POP 

POP 

POP 

SUB 

INR 

RET 

EQU 

LDA 

ORA 

STA 

LOA 

HOV 



$ 

H 

L,A 

DCCT 

H,A 

DFL6S 

PC004 
H^ERFLG 

A,M 
DM ERR 
M,A 
H 
A 



SAVE CHAR IN L 
READ CONTROL WD 
SAVE CONTROL IN H 
READ FLAGS 

TERMINAL IN RECEIVE? 
NO, JMP 



$ 
F9 

PC 

KD 

BU 

$ 

H 

ID 
IDC 
DCT 

PC 

B 

D 

DC 

D 

B 

H 

A 

A 

$ 
FM 

L 

ID 

DF 

H, 



;C,Z => ERROR, NO MESSAGE 



600-60BIN 
B9600+DCNP 



;FASTBIN ? 

;SET FASTBIN MODE 



005 

csw 

OPT 



CCT 
ST 
BE 
020 



MON 



YES, JUMP 
READ SWITCHES 
CLEAR H/F AND 



CA BITS 



;SET COMMAND WORD 
/OUTPUT COMMAND WORD TO DC 
; INPUT DATACOM STATUS 
;IS TRANSMIT BUFFER EMPTY? 
;YES, 60 OUTPUT THE CHAR 



;AVOIO EXTERNAL HANG 



ASK 

COO 
L6S 
A 



;NC,NZ => WAIT 
; OUTPUT CHARACTER 
;READ FORCE PARITY 
;0R WITH CHAR 
;OUTPUT THE CHAR 
;NOT BINARY/, 
;SAVE FLAGS 



MASK 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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• 78CE 


E6 24 




ANI 


BNMOO+ 


7800 


CAD678 




JZ 


PC 030 


^ 7803 




PC025 


EQU 


$ 


7803 


El 


# 


POP 


H 


^ 78D4 


BF 




CMP 


A 


^ 7805 


C9 




RET 




7806 




PCQ30 


EQU 


$ 


^ 7806 


3AAD91 




LOA 


EOCHR 


• 7809 


BO 




CMP 


L 


780A 


CA3779 




JZ 


PC 070 


^ 7800 


7C 




MOV 


h,H 


^ 780E 


E602 




ANI 


TNMOD 


78E0 


C20378 




JNZ 


PC025 


A 78E3 


70 




MOV 


A,L 


^ 78EA 


FE06 




CPI 


ACK 


78E6 


CA2979 




JZ 


PC 060 


^ 78E9 


3AFBFF 




LOA 


KJMPR 


^ 78EC 


E608 




ANI 


PGSTR 


78EE 


C2FF78 




JNZ 


PC040 


^ 78F1 




PC035 


EQU 


S 


^ 78F1 


70 




MOV 


A,L 


78F2 


FEOD 




CPI 


CR 


^ 78F4 


CA1679 




JZ 


PC050 


• 78F7 


FEOA 




CPI 


LF 


78F9 


CA2179 




JZ 


PC055 


^ 78FC 


E1 




POP 


H 


• 78FD 


BF 




CMP 


A 


78FE 


C9 




RET 




A 78FF 




PC040 


EQU 


$ 


^ 78FF 


70 




MOV 


A,L 


7900 


FE12 




CPI 


DC2 


^ 7902 


CA2979 




JZ 


PC 060 


• 7905 


3AF3FF 




LOA 


MFLG2 


7908 


E602 




ANI 


BKMDE 


^ 790A 


CAF178 




JZ 


PC 035 


• 7900 


70 




MOV 


A,L 


790E 


FE1E 




CPI 


RS 


^ 7910 


CA2979 




JZ 


PC 060 


^ 7913 


El 




POP 


H 


7914 


BF 




CMP 


A 


^ 7915 


C9 




RET 




^ 7916 




PC050 


EQU 


$ 


7916 


3AF3FF 




LOA 


MFL62 


^ 7919 


E604 




ANI 


ATOLF 


• 791B 


CA2979 




JZ 


PC060 


791 E 


El 


PC052: 


POP 


H 


^ 791F 


BF 




CMP 


A 


^ 7920 


C9 




RET 




7921 




PC055 


EQU 


$ 


^ 7921 


3AF3FF 




LOA 


MFL62 


^ 7924 


E604 




ANI 


ATOLF 


7926 


CA1E79 




JZ 


PC052 


^ 7929 




PC060 


EQU 


$ 


^ 7929 


3AAD91 




LOA 


EOCHR 


792C 


C08878 




CALL 


PUTDC 


^ 792F 


0A2979 




JC 


PC060 


^ 7932 


C22979 




JNZ 


PC 060 


7935 


El 




POP 


H 


^ 7936 


C9 




RET 
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iCWOO ;ANO MC ? 
;YES^ 

NO, RETURN => NC^Z 



;IS CHAR ED CHAR? 



YES, JmP 

RECALL DCFL6S 

TRANSPARENT? 

RETURN ON TRANSPARENT MOOE 

IS IT LAST CHAR OF BLOCK? 

CKAR ACK? 

YES, RESPOND OUT 

FETCH KEYBOARD JUMPER A-H 

PAGE MODE? 

YES, CHECK FOR DC2 OR RS 



;N0, CHECK FOR CR OR LF 

;IS IT CR? 

;YES, CHK TO SEND END OF DAT 

;1S IT LF? 

;YES, CHK TO SEND END OF DAT 

;NONE OF THE ABOVE, RETURN 



;IS IT DC2? 

;YES, SEND END OF DATA 

;6ET MODE FLAGS 

;ARE WE IN BLOCK MODE? 

;N0 - 

;REST0RE CHAR 

;IS IT RS? 

;YES, SEND END OF DATA 

;NONE OF THE ABOVE, RETURN 



;AUTO LF KEY UP? 

;YES, SEND END OF DATA 



;AUTO LF KEY DOWN? 

;N0, RETURN 

;GET END OF DATA CHAR 
;ANO TRANSMIT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7937 




P 


793 7 


3E7F 




7939 


B7 




793A 


CD8878 




793D 


DA3779 




7940 


C23779 




7943 


3E7F 


P 


7945 


CD8878 




7948 


DA4379 




794B 


C24379 




794E 


C5 




794 F 


CDDE7B 




7952 


C1 




7953 


El 




7954 


AF 




7955 


C9 





796B 
796B 
796E 



PC070 



PC080: 



EQU 

MVI 

ORA 

CALL 

JC 

JNZ 

mi 

CALL 

JC 

JNZ 

PUSH 

CALL 

POP 

POP 

XRA 

RET 



$ 

A,ADEL 

A 

PUTDC 

PC 070 

PC070 

A^AOEL 

PUTDC 

PC080 

PC 080 

B 

DM110 

B 

H 

A 



;ALLOW ENOUGH TIME TO MAKE 

;SURE END OF DATA HAS 
;BEEN TRANSMITTED 



;60 TO RECEIVE STATE 



; STRTBN - SET BINARY OUTPUT MODE 
; ENTRY: DON'T CARE 







e 


EXIT 


: DON'T 


CARE 


7956 




SRTBN 


EQU 


$ 




7956 




SB010 


EQU 


$ 




7956 


3A2081 




LDA 


IDCST 


;READ DC STATUS 


7959 


E602 




ANI 


DCTBE 


;XMIT BUFF EMPTY? 


795B 


CA5679 




JZ 


SB 010 


;N0^ WAIT 


795E 


3AAC91 




LOA 


DCCT 


;REAO CONTROL WD 


7961 


F620 




ORI 


DCNP 


;SET NO PARITY 


7963 


32AC91 




STA 


DCCT 


;SET NEW CONTROL WD 


7966 


AF 




XRA 


A 


;SET RETURN INDICATORS 


7967 


32AE91 




STA 


Ff^ASK 


;CLEAR FORCE PARITY 


796A 


C9 




RET 







INITDC - INITIALIZE DATACOM 



016000 
C9 



IITDC EQU $ 

LXI B,DBFSZ 
RET 



;SET BUFFER REQUIREMENTS 
;RETURN TO GET BUFFER 



796F 




ii; 


?DC 


EQU 


796F 


EB 






XCHG 


7970 


22B991 






SHLD 


7973 




RTDCB 


EQU 


7973 


3A4081 






LDA 


7976 


E680 






ANI 


7978 


3AF9FF 






LDA 


797B 


67 






MOV 


797C 


C28479 






JNZ 


797F 


E6BF 






ANI 


7981 


32F9FF 






STA 


7984 


E602 


RT005: 


ANI 


7986 


3E03 






MVI 



DATACOM INITIALIZATION CONTINUATOR 



;PUT BUFFER START IN H AND L 
DBFB6 ;STORE BUFFER START ADDRESS 
$ 

IDCPC ;READ 6P DC PROG. STRAPS 
6ASYC ;GP ASYNC BOARD IN? 
KJMP3 ;GET STRAPS FOR 202 PRTCL 
H,A ;OPTIONS 

RT005 ;YES 6P CARD IN 
377Q-CEKCC ;N0, INHIBIT CC LED MONITO 
KJMP3 ;STORE STRAPS SETTINGS 
EXSTP ;USE ETX? 
A,ETX ;USE ETX 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
21 
2f 
21 
2t 
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7988 


C28D79 


798B 


3E04 


798D 




798D 


32A&91 


7990 


7C 


7991 


€620 


7993 


3E80 


7995 


CA9979 


7998 


AF 


7999 




7999 


32AC91 


799C 


7C 


799D 




799D 


E603 


799F 


2E00 


79A1 


C2A679 


79A4 


2E20 


79A6 


7C 


79A7 


E680 


79A9 


32AE91 


79AC 


B5 


79AD 


32B891 


79B0 


3AAC91 


79B3 


E680 


79B5 


32AC91 


7988 


67 


79B9 


3AFCFF 


79BC 


E63E 


79BE 


B4 


79BF 


324081 


79C2 


3EC3 


79C4 


32B591 


79C7 


21067B 


79CA 


228691 


79CD 


3A2081 


79D0 


328F91 


79D3 


3E01 


79D5 


CD5 57C 


79D8 




79D8 


2AB991 


79DB 


22BB91 


79DE 


22B091 


79E1 


C9 



RT006 



RT007 



RTSRK 



RT010: 



RT020: 



RTDCl 



RT006 

A, EOT 

$ 

EDCHR 

A^H 

SETCH 

A,OCCH 

RT007 

A 

$ 

DCCT 

A,H 

$ 

MCHAN 

L^O 

RT010 

L^MCMOD 

A,H 

FCPTY 

FMASK 

L 

DFLGS 

DCCT 

DCCH 

DCCT 

H,A 

KDCSW 

BUDPT 

H 

IDCCT 

A, JmPcD 

DMJPtP 

H^DCMON 

DMVEC 

IDCST 

DSTAT 

A,1 

DCCTL 



JNZ 

MVI 

EQU 

STA 

MOV 

ANl 

MVI 

JZ 

XRA 

EQU 

STA 

MOV 

EQU 

ANI 

MVI 

JNZ 

HVI 

MOV 

ANI 

STA 

ORA 

STA 

LOA 

ANI 

STA 

MOV 

LDA 

ANI 

ORA 

STA 

MVI 

STA 

LXI 

SHLD 

LDA 

STA 

MVI 

CALL 

EQU $ 

LHL£> DBFB6 

SHLD DSPTR 

SHLD DBPTR 

RET 
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;YES 
;USE EOT 

;STORE ED CHAR 

;RESTORE JMPERS 

;1S CH SET? 

;SET CH OFF 

;N0 

;SET CH ON 

;SET CONTROL WORD 
;RESTORE JUMPERS 

;MAIN CHANNEL? 

;YES, 

;SET NOT MAIN CHANNEL 
;RESTORE JUMPERS 
;SET FORCE PARITY 

;SET FP AND MC 



;READ CONTROL WD 
;CLEAR EXCEPT CH 
;RESTORE 
;SAVE DCCT 
;READ DC SWITCHES 
;MASK OUT H/F 
;SET CONTROL WORD 
; OUTPUT DC CONTROLS 
;SET JUMP OP CODE 
;STORE OP 
;SET INITIAL DATA 
;MONITOR VECTOR 
;SET INITIAL DATA 



COMM 



COMM STATU 



;SET THE BLOCK TRANSFER 
;TRI6GER 

;SET LOAD AND UNLOAD POINTER 
;EQUAL TO EACH OTHER 



*********************** 

GETDC - GET DATA (7 BITS) FROM DATA COM 

ENTRY: DON'T CARE 

EXIT : NC - NO ERRORS DETECTED 

Z - CHARACTER AVAILABLE 

A = CHARACTER 
NZ - WAIT 

A DESTROYED 
C - DATACOM ERROR 
A DESTROYED 
Z - NO ERROR MESSAGE 
NZ - DISPLAY ERROR MESSAGE 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; B,C -> ERROR MESSAGE FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

7A20 GC002 EQU $ FILE 20 

7A20 E1 POP H ;RESTORE H^L FILE 20 

7A21 F601 ORI 1 ;SET NC,NZ FILE 20 

7A23 FB EI FILE 20 

7A24 C9 RET ;RETURN WAIT FILE 20 

7A25 6C004 EQU $ FILE 20 

7A25 E5 PUSH H ;SAVE H AND L FILE 20 

7A26 GC005 EQU $ FILE 20 

7A26 F3 01 FILE 20 

7A27 2ABD91 LHLD DBPTR ;GET THE UNLOAD ADBRESS FILE 20 

7A2A 3ABB91 LDA DSPTR ;6ET THE LSB OF THE LOAD PTR FILE 20 

7A2D BD CMP L ;ANt CHARACTERS IN BUFFER? FILE 20 

7A2E C2407A JNZ GC007 ;YES - GET ONE FILE 20 

NO - CHECK FOR DATA COMM FILE 20 

7A31 3A2081 LOA IDCST ;DATA IN FILE 20 

7A34 E601 ANI DC OP ; DATA PRESENT? FILE 20 

7A36 CA207A JZ GcO02 ;N0 - EXIT FILE 20 

7A39 CD2678 CALL OINTR ;YES - GET THE CHARACTER FILE 20 

7A3C FB EI ;RE-ENABLE INTERRUPTS FILE 20 
7A3D C3267A JMP GC005 ;6ET CHAR FROM INPUT BUFFER FILE 20 

FILE 20 

; FILE 20 



79E2 


6ET0C EQU 


$ 




79E2 


E5 


PUSH 


H 




79E3 


21B891 


LXI 


H^DFLGS 


; FETCH DATACOM FLAGS 


79E6 


F3 


DI 






79E7 


7E 


MOV 


A,f^ 




79E8 


E6FB 


ANI 


377Q-BNM0C 


» ;TURN OFF BINARY 


79 E A 


77 


MOV 


M,A 




79EB 


E680 


ANI 


FRPAR 


;FORCE PARITY ON? 


79ED 


32AE91 


STA 


FMASK 


;SET FPMASK 


79F0 


7E 


P!OV 


A,M 


/RESTORE A 


79F1 


GC001 EQU 


$ 




79F1 


FB 


EI 






79F2 


E642 


ANI 


SECHO+TNMOD ;I6N0RE ECHO FROM DATACOM 


79F4 


FE40 


CPI 


SECHO 


;1S SPECHO ON WITHOUT TRANS 


79F6 


C2267A 


JNZ 


GC005 


;N0 CHECK FOR CHAR 


79 F 9 


7E 


MOV 


A^M 


;GET FLAGS AGAIN 


79FA 


E605 


ANI 


BNHOD+DCC^ 


I 


79FC 


FE01 


CPI 


DCCA 


;N0T BIN AND REC ? 


79FE 


C2207A 


JNZ 


GC002 


;N0 - RETURN WAIT STATUS 


7A01 


3AF9FF 


LDA 


KJMP3 


;GET SWITCH SETTINGS 


7A04 


E601 


ANI 


SXSTP 


;TEST FOR SD CHAR 


7A06 


C2207A 


JNZ 


6C002 


;N0 CONTINUE WAIT 


7A09 


CD257A 


CALL 


GC004 


;YES - CHK FOR STRT OF DATA 


7A0C 


DA207A 


JC 


GC002 


;N0 CHAR, CONTINUE WAIT 


7A0F 


C2207A 


JNZ 


6C002 


;N0 CHAR, CONTINUE WAIT 


7A12 


FE02 


CPI 


STX 


;WAS CHR STX ? 


7A14 


C2207A 


JNZ 


GC002 


;N0, CONTINUE WAITING 


7A17 


21B891 


LXI 


H,DFL6S 


;YES,TURN OFF ECHO SUPPRESS 


7A1A 


F3 


DI 






7A1B 


7E 


MOV 


A,M 




7A1C 


E6BF 


ANI 


377Q-SECH0 


7A1E 


77 


MOV 


M,A 




7A1F 


FB 


EI 










NO DATA 


- EXIT WAIT 
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7A40 




7A40 


3AB991 


7A43 


BD 


IfiUk 


C24E7A 


7A47 


C660 


7A49 


6F 


7A4A 


7C 


7A4B 


CEOO 


7A4D 


67 


7A4E 




7A4E 


2B 


7l^Af 


22BD91 


7A52 


FB 


7A53 


7E 


7A54 


6F 


7A55 


FEFF 


7A57 


C2667A 


7A5A 


3AF7FF 


7A5D 


E601 


7A5F 


CA667A 


7A62 


El 


7A63 


BF 


7A64 


37 


7A65 


C9 



7A66 




7A66 


3AB891 


7A69 


67 


7A6A 


E604 


7A6C 


C2EB7A 


7A6F 


7D 


7A7Q 


E67F 


7A72 


6F 


7A73 


7C 


7A74 


E620 


7A76 


C2Ae7A 


7A79 


3AAD91 


7A7C 


BD 


7A7D 


C2AE7A 


7A80 


7C 


7A81 


E602 


7A83 


C2A37A 


7A86 


5AF9FF 


7A89 


E608 


7A8B 


C29A7A 


7A8E 


21B891 


7A91 


F3 


7A92 


7E 


7A93 


F640 


7A95 


77 


7A96 


FB 


7A97 


C3207A 


7A9A 


C5 


7A9B 


CD4F7B 


7A9E 


CI 



GET CHARACTER FROM INPUT BUFFER 



6C007 



GC008 



EQU 
LDA 
CMP 
JNZ 
ADI 
MOV 
MOV 
ACI 
MOV 

EQU 

DCX 

SHLD 

EI 

MOV 

MOV 

CPI 

JNZ 

LDA 

ANI 

JZ 

POP 

CMP 

STC 

RET 



$ 

DBFB6 

L 

GC008 

DBFSZ 

L^A 

A,H 



H,A 

$ 
H 
DBPTR 

A,M 

L^A 

577Q 

G C 01 

ERFLG 

DM ERR 

6C010 

H 

A 



PROCESS CHARACTER 



GCOlO 



6C012: 



EQU 

LDA 

MOV 

ANI 

JNZ 

MOV 

ANI 

MOV 

MOV 

ANI 

JNZ 

LDA 

CMP 

JNZ 

MOV 

ANI 

JNZ 

LDA 

ANI 

JNZ 

LXI 

DI 

MOV 

ORI 

MOV 

EI 

JMP 

PUSH 

CALL 

POP 



$ 

DFLGS 

H,A 

BNMOO 

GC050 

A^L 

177Q 

L^A 

A,H 

MCMOD 

6C015 

EDCHR 

L 

6C015 

A,H 

TNMOD 

6C014 

KJMP3 

CSTRP 

GC012 

H, DFLGS 

A,M 
SE CHO 

M, A 

6C002 

B 
DM03D 

B 



FETCH LSB OF BUFFER START 
AT BEGINNING OF BUFFER? 
NO - GET THE NEXT CHARACTER 
YES - WRAP AROUND TO END OF 
;BUFFER 



;DECREMENT TO NEXT CHARACTER 
;STORE NEW POINTER 



GET THE INPUT BYTE 
SAVE IT IN THE L-RE6ISTER 
POSSIBLE ERROR BYTE? 
NO - CHECK FOR NORMAL MODE 
YES - GET ERROR FLAG 
ERROR IN INPUT? 
NO - PROCESS CHARACTER 
YES - RESTORE H,L 
RETURN ERROR WITH NO MESSA6 
;iC, Z) 
; RETURN 



;6ET DATACOM FLAGS 
;SAVE FLAGS 
;BINARY MODE? 
;YES - DON'T CHECK 



FOR <ENQ> 



;MASK OUT PARITY BIT 

;SAVE CURRENT CHAR 

;RECALL FLAGS 

;MA1N CHANNEL? 

;N0, DO NOT CK ED CHAR 

;GET ED CHAR 



NO, CONTINUE 

RECALL STRAPS 

TRANSPARENT? 

YES JMP 

READ STRAPS 

CF DETECT ENABLED ? 

NO, 60 TO XMIT STATE 

GET OCFLGS ADDR 



;GET FLAGS 

;SET SUPPRESS ECHO 

;STORE NEW FLAGS 

;60 EXIT ON WAIT DROP CF 

;SAVE B,C 

;YES, 60 TO TRANSMIT STATE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



ILEZa. 
ILE 20 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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POP 
ORI 
RET 
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7A9F 


E1 


7AA0 


F601 


7AA2 


C9 


7AA3 




7AA3 


C5 


7AA4 


CD4F7B 


7AA7 


C1 


7AA8 


El 


7AA9 


3AAD91 


7AAC 


BF 


7AAD 


C9 


7AAE 




7AAE 


7C 


7AAF 


E642 


7AB1 


C2EB7A 


7AB4 


7D 


7AB5 


FE05 


7AB7 


El 


7AB8 


CABD7A 


7ABB 


BF 


7ABC 


C9 



7ABD 




7ABD 


CD257A 


7AC0 


3AB891 


7AC3 


E601 


7AC5 


C2807A 


7AC8 




7AC8 


3E06 


7ACA 


B7 


7ACB 


CD 8878 


7ACE 


DAC87A 


7AD1 


C2C87A 


7AD4 


3A8891 


7A07 


2F 


7AD8 


E608 


7ADA 


CO 


7ADB 


F3 


7ADC 


3AB891 


7ADF 


EEOC 


7AE1 


32B891 


7AE4 


FB 


7AE5 


AF 


7AE6 


32AE91 


7AE9 


3C 


7AEA 


C9 



7AEB 




7AEB 


7D 


7AEC 


£1 


7AED 


BF 


7AEE 


C9 



6C014 



6C015 



EQU 

PUSH 

CALL 

POP 

POP 

LDA 

CMP 

RET 

EQU 

MOV 

ANI 

JNZ 

MOV 

CPI 

POP 

JZ 

CMP 

RET 



H 
1 



$ 

B 

DMC30 

B 

H 

EDCHR 

A 



;GET ED CHAR 



$ 

A,H ;RECALL FLAGS 

TNMOO+SECHO ;TRANSPARENT OR WAITING 



GC050 

A,L 

ENQ 

H 

GC020 

A 



YES, JMP 
RECALL CHAR 
IS IT AN <EN6>? 
RESTORE H,L 

YES - RESPOND WITH <ACK> 
NO - RETURN CHARACTER 
;(NC, Z> 



WAIT FOR LINE TURNAROUND BEFORE SENDING <ACK> 



6C02O 



GC030 



EQU 

CALL 

LDA 

ANI 

JNZ 

EQU 

MVI 

ORA 

CALL 

JC 

JNZ 

LDA 

CMA 

ANI 

RNZ 

01 

LDA 

XRI 

STA 

EI 

XRA 

STA 

INR 

RET 



$ 

GC004 

DFL6S 

DCCA 

6C020 

$ 

A,ACK 

A 

PUTOC 

6C030 

GC030 

DFLGS 

GOBIN 



;CHECK FOR EN D F DATA 
;GET THE DATACOM FLAGS 
;TRANSMIT MODE (CA = D? 
;N0 - WAIT FOR TURNAROUND 
;YES - SEND ACK 

;NC => NORMAL CHAR 

;ERROR - TRY AGAIN 
;WAIT - TRY AGAIN 
;SEE IF ENQ-ACK SHOULD CAUSE 
;CHANGE TO BINARY MODE 

;N0 - RET WITH NC^NZ => WAIT 



DFLGS ;YES - TOGGLE GOBIN AND BINM 

GOBIN+BNMOD 

DFLGS 



A 

FMASK 

A 



;CLEAR FP MASK 



BINARY OR TRANSPARENT - RETURN CHARACTER 



6C050 



EQU 
HOV 
POP 
CHP 
RET 



A^L 
H 

A 



; (PUT CHARACTER IN A-RE6) 

;RETURN CHARACTER 
;(NC, Z) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

FILE 20 



r 



7AEF 




7AEF 


E5 


7AF0 


21B891 


7AF3 


7E 


7AF4 


E6D4 


7AF6 


F3 


Ikfl 


7E 


7AF8 


C2F179 


7AFB 


F608 


7AFD 


11 


7AFE 


FB 


7AFF 


El 


7B00 


CDE279 


7B03 


F601 


7B05 


C9 



;************************ FILE 20 

; FILE 20 

; 6ETBIN - GET A BINARY BYTE FILE 20 

; FILE 20 

; ENTRY: DON'T CARE FILE 20 

FILE 20 

EXIT : SAME AS 6ETDC, ABOVE FILE 20 

; FILE 20 

GTBIN EQU $ FILE 20 

PUSH H FILE 20 

LXI H^OFLGS FILE 20 

MOV A^R ;LOA£) DC FLAGS FILE 20 

ANI BNP«10D ;ALREADY IN BINARY MODE? FILE 20 

DI FILE 20 

MOV A,H FILE 20 

JNZ 6C001 ;YES - GET BYTE AND RETURN FILE 20 

ORI GOBIN ;N0 - SET FLAG TO GO TO BIN FILE 20 

MOV «,A FILE 20 

EI FILE 2D 

POP H FILE 20 

CALL GETDC ;EMPTY BUF/DO ENQ-ACK HANDSH FILE 20 

ORI 1 ;NC,N2 => WAIT FILE 20 

RET FILE 20 

; FILE 20 

; FILE 20 

; ************************ FILE 20 

; FILE 20 

; DCMON - N0RP1AL DATA COMW KONITOR ROUTINE FILE 20 

; FILE 20 

ENTRY: DON»T cARE FILE 20 

; FILE 20 

; EXIT : ALL REGISTERS DESTROYED FILE 20 

; FILE 20 

; THIS ROUTINE MONITORS THE RS232-C CONTROL FILE 20 

; LINES CLEAR TO SEND (C8,106), RECEIVE CARRIER FILE 20 

; (CF,109), AND SECONDARY RECEIVE DATA (SB,122). FILE 20 

; FILE 20 

; THE DATA SET READY LINE (CC, 107) IS MONITORED FILE 20 

; WHEN THE 6P ASYNC DC CARD IS USED AND FILE 20 

; IF THE CHEKCC IS ENABLE THE TRANSMIT LED IS FILE 20 

; TURNED ON WHEN CC IS HIGH, OFF WHEN LOW, ELSE FILE 20 

IF THE CHEKCC IS DISABLED, THEN FILE 20 

; FILE 20 

; THE TRANSMIT LIGHT IS TURNED ON WHEN CB (106) FILE 20 

IS HIGH (DCCB=0), AND OFF, WHEN CB (106) IS FILE 20 

; LOW (DCCB = 1 ). FILE 20 

; FILE 20 

; IF CIRCUIT ASSURANCE IS ENABLED AND IN RECEIVE FILE 20 

; STATE, TRANSITION TO TRANSMIT, IS ENABLED ONLY FILE 20 

; AFTER DROP IN BOTH CB, AND SB HAS BEEN DETECTED FILE 20 

; WITHIN 2.6 SECS, ELSE RETURN TO RECEIVE STATE. FILE 20 

; FILE 20 

; IF CIRCUIT ASSURANCE IS DISABLED TRANSITION FILE 20 

; WILL OCCUR AFTER A DROP IN CB. FILE 20 

FILE 20 

; IF CPU BREAK IS ENABLED AND IN TRANSMIT STATE, FILE 20 

; IF Se DROPS, THE CPU HAS ENABLED BREAK. IF BREAK FILE 20 

; HAS OCCURED AND CF DETECT IS DISABLED, SEND ED FILE 20 

; CHAR AND SET CA LOW, ELSE SET CA LOW . FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 17 



7B06 

7B06 

7B09 

7B0A 

7B0D 

7B0F 

7B11 

7B14 

7B17 

7819 

7B1A 

7B1D 

7B20 

7821 

7B24 

7B25 

7B26 

7B29 

7B2A 

7B2C 

7B2F 

7B32 

7B34 

7B37 

7B38 

78 3 A 

7B3D 

7B40 

7B41 

7B42 

7B43 



3AAC91 

57 

3AB891 

E610 

3E2E 

C2197B 

3AFCFF 

E63E 

B2 

324081 

3A2081 

4F 

21BF91 

46 

77 

3AF9FF 

5F 

E640 

CA377B 

3A2181 

E680 

C33A7B 

79 

E620 

CC1770 

C41A70 

7A 

OF 

7B 

D2C27B 



7B46 


E608 


7B48 


CO 


7B49 


78 


7B4A 


A9 


7B4B 


E610 


7B4D 


A1 


7B4E 


C8 


784 F 




7B4F 


21B891 


7B52 


F3 


7B53 


7E 


7B54 


F640 


7B56 


77 


7B57 


FB 


7B58 


AF 


7B59 


32B491 



IF CARRIER DETECT CF IS ENABLE IN RECEIVE STATE 
WITH A DROP IN CF DETECTED THEN GO TO TRANSMIT 
STATE. IF CARRIER DETECT IS DISABLED, AND MAIN 
CHANNEL, THEN TURN LINE AROUND AFTER ED CHAR. 



DCMON EQU $ 

LDA DCCT 

WOV D,A 

LDA DFLGS 

ANI F9600 

MVI A,B9600+0C 

JNZ DM002 

LDA KDCSW 

ANI BUDPT 

DM002: ORA D 

STA IDCCT 

LDA IDCST 

MOV C,A 

LXI H,DSTAT 

MOV B,M 

MOV M,A 

LDA KJMP3 

MOV E,A 

ANI CEKCC 

JZ DM005 

LDA IDCS2 

ANI DCCC 

JHP DM010 

DM005: MOV A,C 

ANI DCCB 

DM010: CZ ZTXMT 

CNZ ZLXMT 

MOV A,D 
RRC 

MOV A,E 

JNC DM100 



;READ CONTROL WD 
;SAVE CH,NP,CA 
;GET DATA COMM FLAGS 
;FAST BINARY? 
NP ;SET FASTBIN 

YES, 

READ DCSW 

CLEAR H/F AND CA BITS 
;KEYBOARD DATACOM SWITCHES 
;SET BAUD RATE AND PARITY 
;GET CURRENT DATA COMM STATU 
;SAVE IT IN C 

;6ET PREVIOUS STATUS AND 
;SAVE NEW STATUS 

READ STRAPS 

SAVE IN E 

MONITOR CC ? 

NO USE CB 

READ 2ND STATUS 

IS CC HIGH ? 

60 TO SET LED 

RECALL STATUS 

IS CB HIGH (DCCB = 0> ? 

YES - TURN ON TRANSMIT LED 

NO - TURN OFF TRANSMIT LED 

IN 202 RECEIVE MODE (CA = 
;dcca = 1 )? 
;RECALL STRAPS 
;N0 - CHECK FOR DROP IN SB 



IN RECEIVE MODE (DCCA = 1 => CA = 0) - CHECK 
FOR DROP IN CF TO GO TO TRANSMIT MODE 
IF CARRIER DETECT IS ENABLED 



0M030 



CSTRP 

A,B 
C 

DCCF 
C 

$ 

H, DFLGS 

A,M 

SECHO 

M^A 



ANI 

RNZ 

MOV 

XRA 

ANI 

ANA 

RZ 

EQU 

LXI 

DI 

MOV 

ORI 

MOV 

EI 

XRA A 

STA XTDLY 



/CARRIER DETECT ENABLED? 
;N0 , IGNORE CF 
;PUT CURRENT STATUS IN A 
/EXTRACT CHANGED BITS 
;DID RECEIVE CARRIER (CF) 

;0R0P (DCCF -> 1)? 
;N0 - RETURN 



;YES 



PREPARE TO GO INTO 



/TRANSMIT MODE 
;SET FLAG TO IGNORE INPUT 
;FROM DATA COMM 

/CLEAR TRANSMIT TURN AROUND 
/TIME LIMIT 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

f ILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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7B5C 
7B5E 
7B5E 
7860 
7B63 



3E01 

0600 

21667B 

C32C7C 



DM040 



MVI 


A,1 


EQU 


$ 


MVI 


B^O 


LXI 


H, DM050 


JWP 


DTURN 



7B66 




DM050 EQU 


$ 


7B66 


3A2081 


LDA 


IDCST 


7B69 


32BF91 


ST A 


DSTAT 


7B6C 


47 


«0V 


B,A 


7B6D 


E620 


ANI 


DCCB 


7B6F 


C2807B 


JNZ 


DM055 


7B72 


3AFAFF 


IDA 


KJMP2 


7B75 


E680 


ANI 


SSTRP 


7B77 


C2887B 


JNZ 


0M060 


787ft 


78 


MOV 


A^B 


7B7B 


E640 


ANI 


DCSB 


7B7D 


CA887B 


JZ 


DM060 


7B80 




DM055 EQU 


$ 


7B80 


21B491 


LXI 


H^XTDLY 


7B83 


35 


OCR 


M 


7B84 


CADE7B 


JZ 


DM110 


7B87 


C9 


RET 








; TURN AROUND COHPLE 


7888 




DPI060 EQU 


$ 


7B88 


21B891 


LXI 


H,DFLGS 


7B8B 


F3 


DI 




7B8C 


7E 


MOV 


A,M 


7B8D 


E6FE 


ANI 


377Q-DCCA 


7B8F 


77 


nosf 


M^A 


7B90 


21AC91 


LXI 


H,DCCT 


7B93 


7E 


MOV 


A^M 


7B94 


E6A0 


ANI 


DCCH+DCNP 


7B96 


77 


MOV 


M,A 


7B97 


21067B 


LXI 


H,DCMON 


7B9A 


22B691 


SHLD 


DMVEC 


7B9D 


21F8FF 


LXI 


H,CFLGS 


7BA0 


7E 


MOV 


A,M 


7BA1 


F601 


ORI 


BKTRG 


7BA3 


77 


MOV 


M,A 


7BA4 


FB 


EI 




7BA5 


3AF9FF 


LDA 


KJMP3 


7BA8 


47 


MOV 


B,A 


7BA9 


E603 


ANI 


MCHAN 


7BAB 


C8 


RZ 




7BftC 


78 


MOV 


A^B 


7BAD 


E601 


ANI 


SXSTP 


7BAF 


CO 


RNZ 




7BB0 




DM07P EQU 


$ 


7BB0 


3AB891 


LDA 


DFLGS 


7BB3 


E602 


ANI 


TNMOD 


7BB5 


CO 


RNZ 




7BB6 




DM075 EQU 


$ 


7BB6 


3E02 


MVI 


A,STX 


7 BBS 


CD8878 


CALL 


PUTDC 


7B8B 


0A867B 


JC 


D(n075 



;SET TO TURN ON CA 
;SET CLEAN-UP ROUTINE 
;D0 TURN AROUND 



CHECK FOR TRANSMIT TURN AROUND COMPLETION 



;6ET CURRENT STATUS 
;UPDATE STATUS 

;IS CB ON? (=0) 
;N0, CONTINUE WAIT 
;MONITOR SB? 

;N0, 60 TO TRANSMIT STATE 
;YES, IS SB ON? {=0> 

;YES,GO TO TRANSMIT STATE 

;TURN AROUND TIME LIMIT 

;EXCEEDED? 
;YES - REVERT TO RECEIVE HOD 
;N0 - RETURN (CONTINUE WAIT) 



;SET TRANSMIT MODE CA 



;SET CONTROL WD ADDR 
;READ WD 

;SET CA LOW 
;SET NEW WO 
;SET MONITOR VECTOR TO 

/REGULAR MONITOR ROUTINE 



SET BLOCK TRANSFER TRIGGER 



;MAIN CHANNEL PROTOCOL? 



;N0, RETURN 

;YES, SEND START OF DATA? 

;N0, RETURN 

;READ FLAGS 
/TRANSPARENT? 
;YES - RETURN 

;SET STX AS SD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 
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7BBE C2B678 JNZ DM075 

7BC1 C9 RET ;RETURN 



; IN TRANSMIT MODE (DCCA = => CA = 1> - CHECK 
; FOR DROP IN SB TO GO TO RECEIVE RODE 

7BC2 DKlQO EQU $ 

7BC2 E604 ANI CKSTP 

7BC4 CO RNZ 

7BC5 78 HOV A,B 

7BC6 A9 XRA C ;EXTRACT CHANGED BITS 

7BC7 E640 ANI DCSB ;I>ID SECONDARY RECEIVED DATA 

78C9 A1 ANA C ; (SB) DROP (DCSB -> D? 

7BCA C8 RZ ;N0 - RETURN 

78CB 78 MOV A^E 

7BCC E603 ANI MCHAN ;MAIN CHANNEL? 

7BCE CADE7B JZ DM110 ;N0, 

7BD1 DM105 EQU $ 

7BD1 3AAD91 LDA EDCHR /OUTPUT ED CHAR 

7BD4 CD8878 CALL PUTDC 

7BD7 0AD17B JC DM105 

7BDA C2D17B JNZ DM105 

7BDD C9 RET 

7BDE DM110 EQU $ ;YES - GO TO RECEIVE MODE 

7BDE 21F8FF LXI H^CFLGS 

7BE1 F3 DI 

7BE2 7E MOV A,H ;CLEAR BLOCK TRANSFER TRIG6E 

7BE3 E6FE ANI 377Q-BKTRG 

7BE5 77 MOV M^A 

7BE6 0601 MVI B,DCCA ;SET TO TURN OFF CA 

7BE8 21B891 LXI H,DFL6S ;SET CA IN "DCFL6S" TO 

7BEB 7E MOV A,M ;INHIBIT TRANSMISSION 

7BEC BO ORA B ;0F DATA 

7BED 77 MOV M,A 

7BEE 21AC91 LXI H,DCCT ;SET CONTROL WD ADDR 

7BF1 7E MOV A^M 

7BF2 F601 ORI DCCA ;SET CA 

7BF4 77 MOV M^A 

7BF5 FB EI 

7BF6 3E01 MVI A,1 ;SET SETTLING TIME (10 «SEC) 

78F8 21FE7B LXI H, DM150 ;SET CLEAN-UP ROUTINE 

7BFB C32C7C JMP DTURN ;D0 TURN AROUND 

; TURN AROUND DONE - SET FOR RECEIVE MODE 

DM150 EQU $ 

LXI H^DCMON ;SET MONITOR VECTOR TO 

SHLD DMVEC /REGULAR MONITOR ROUTINE 

DI 

LHLD DBFB6 ;SET DATA COMH BUFFER 

SHLD DSPTR /POINTERS 

SHLD DBPTR 

EI 

LDA IDCST ;READ STATUS 

STA DSTAT /UPDATE STATUS 

LDA KJMP3 /MAIN CHANNEL PROTOCOL? 

MOV B,A 

ANI MCHAN 



7BFE 




7BFE 


210678 


7C01 


228691 


7C04 


F3 


7C05 


2AB991 


7C08 


22BB91 


7C0B 


22BD91 


7C0E 


FB 


7C0F 


3A2081 


7C12 


32BF91 


7C15 


3AF9FF 


7C18 


47 


7C19 


E603 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 


FILE 


20 
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20 
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20 
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20 


FILE 


20 
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20 
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MOV 
JZ 
ANI 
RZ 
DK160 EOU 
LXI 
DI 
HOV 
ANI 
MOV 
EI 
RET 



ERRORS = PAGE 20 



7C1B 


78 


7C1C 


CA227C 


7C1F 


E601 


7C21 


C8 


7C22 




7C22 


21B891 


7C25 


F3 


7C26 


7E 


7C27 


E6BF 


7C29 


77 


7C2A 


FB 


7C2B 


C9 



A,B 

DM160 

SXSTP 

$ 
H,DFLGS 

A,W 
377Q-SECH0 



;H0, RESET ECHO SUPPRESS 
;YES,WAIT FOR STRT OF DATA? 
;¥ES^ RETURN NOW 

;SET DATA COMM FLAGS TO 

;ACCEPT DATA COM!^ INPUT 



; RETURN 



OCTURN - TURN LINE AROUND FOR 202 

ENTRY: A = SIGNAL SETTLING TIHE 
e = SETTING FOR CA 
H,L = TURN AROUND EXIT ROUTINE 

EXIT : A^B^H^L DESTROYED 



;set signal settling delay 
;set data comir exit routine 
;set monitor juwp for delay 

;continuator 
;read control wd 
a ;set clear 
;mask with dcca 

;SAVE IN B 

;ADD DESIRED CA SETTING WITH 
;CLEAR H/F AND CA BITS 

;KEYBOARD DATACOM SWITCHES 
;SET DATA COKH INTERFACE 
;RETURN 

NUATOR - CHECK FOR TIME OUT 



7C2C 




OTURN 


EQU 


$ 


7C2C 


32B391 




STA 


DO LAY 


7C2F 


22B191 




SHLD 


DCTEX 


7C32 


21497C 




LXI 


H, DDCNT 


7C35 


22B691 




SHLD 


DMVEC 


7C38 


3AAC91 




LDA 


DCCT 


7C3B 


E6FE 




ANI 


377Q-DCC 


7C3D 


80 




ORA 


B 


7C3E 


47 




MOV 


B,A 


7C3F 




DT010 


EQU 


$ 


7C3F 


3AFCFF 




LDA 


KOCSW 


7C42 


E63E 




ANI 


BUDPT 


7C44 


BO 




ORA 


B 


7C45 


324081 




STA 


IDCCT 


7C48 


C9 




RET 








; TURN AROUND CONTI 


7C49 




DDCNT 


EQU 


$ 


7C49 


21B391 




LXI 


H^DDLAY 


7C4C 


35 




DCR 


n 


7C4D 


CO 




RNZ 




7C4E 


2AB191 




LHLD 


DCTEX 


7C51 


22B691 




SHLD 


DMVEC 


7C54 


E9 




PCHL 





;SETTLING TIME COMPLETED? 
;N0 - RETURN 

;YES - GET CLEAN UP ROUTINE 
;ADDRESS AND 60 DO IT 



****** ****************** 
DCCTL - PERFORM CONTROL FUNCTIONS 

ENTRY: A = CONTROL PARAMETER 

B,C = CONTROL VARIABLES (AS NEEDED) 

EXIT : A DESTROYED 

NC - NO DATACOH ERRORS DETECTED 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 
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1 

r 

m 

r 
r 






7C55 




DCCTL 


EQU 


$ 


7C55 


FEOD 




CPI 


POMPT 


7C57 


CAAE7D 




JZ 


SDDC2 


7C5A 


DO 




RNC 




7C5B 


E5 




PUSH 


H 


7C5C 


D5 




PUSH 


D 


7C5D 


87 




ADD 


A 


7C5E 


5F 




MOV 


E,A 


7C5F 


1600 




MVI 


D,0 


7C61 


216B7C 




LXI 


H^DCTA 


7C6A 


19 




DAD 


D 


7C65 


5E 




HOV 


E,K 


7C66 


23 




INX 


H 


7C67 


56 




MOV 


D^M 


7C68 


EB 




XCH6 




7C69 


D1 




POP 


D 


7C6A 


E9 




PCHL 





ERRORS = PAGE 21 



2 - CONTROL PERFORMED 

NZ - INVALID CONTROL REQUEST 

- DATACOM ERROR DETECTED 

Z - NO ERROR MESSAGE 

- DISPLAY ERROR MESSAGE 

,Z = POINTER TO ERROR MESSAGE 



;IS CONTROL CALL PROMPT? 
;YES, JMP 

;IF GREATER RET INVALID CNTL 
;SAVE THE WORKING REGISTERS 

;D0UBIE THE PARAMETER VALUE 
;COMPUTE CONTROL VECTOR 
;LOCATION 



;FETCH THE CONTROL VECTOR 



;RECALL D AND E 

;60 TO CONTROL ROUTINE 



CONTROL VECTORS 



7C6B 




7C6B 


867C 


7C6D 


907C 


7C6F 


A27C 


7C71 


A87C 


7C73 


8D7C 


7C75 


B47C 


7C77 


F57C 


7C79 


DA7D 


7C7B 


627D 


7C7D 


727D 


7C7F 


837D 


7C81 


207A 


7C83 


207A 



DCTAB 



EQU 


$ 




DW 


CBLTR 


;0 


DW 


SBLTR 


;1 


DW 


RTDCM 


;2 


DW 


SRMTE 


;3 


DW 


SLOCL 


;^ 


DW 


BREAK 


;5 


DW 


DCNCT 


;6 


DW 


SDTRM 


;7 


DW 


ETI*^ON 


;8 


DW 


RTNRM 


;9 


DW 


FTBIN 


;10 


DW 


6C002 


;11 


DW 


GC002 


;12 


DFAD 


SNDDC2 


13 



■ CLEAR BLOCK XFR TRIGGER 

■ SET BLOCK XFR TRIGGER 

• RESET DATACOM 

■ SET REMOTE MODE 

• SET LOCAL MODE 

• OUTPUT BREAK SIGNAL 

■ MODEM DISCONNECT 

■ SEND ED IF MAIN CHAN 

• ENTER MONITOR MODE 

■ RETURN TO NORMAL OPER 

• FAST BINARY 9600 BAUD 

■ NO OP 
- NO OP 

SEND DC2 



7C85 




CBKTX 


EQU 


$ 


7C85 


E5 




PUSH 


H 


7C86 




CBLTR 


EQU 


$ 


7C86 


3EFE 




MVI 


A,377Q- 


7C88 


21F8FF 




LXI 


H^CFLGS 


7C8B 


A 6 




ANA 


M 


7C8C 


77 




MOV 


M,A 


7C8D 




DCTX1 


EQU 


$ 


7C8D 


El 




POP 


H 


7C8E 


BF 




CMP 


A 


7C8F 


C9 


» 


RET 





CLBLTR - CLEAR BLOCK TRANSFER TRIGGER 



;ENTRY FOR SEND 0C2 ROUTINE 



SET H,L TO COMMON FLAGS 
MASK OUT THE FLAG 
STORE UPDATED VALUE 



; RESTORE H AND L 
;SET NC AND Z 
;RETURN 



20 
20 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 
FILE 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7C90 
7C90 
7C93 
7C95 
7C98 
7C9A 
7C9D 
7C9E 
7C9F 



7CA2 
7CA2 
7CA5 



7CA8 
7CA8 
7CA9 
7CAC 
7CA0 
7CB0 
7CB1 



7C8D 



STBLTR - SET BLOCK TRANSFER TRIGGER 



SBLTR 



3AB891 

E601 

C28D7C 

3E01 

21F8FF 

B6 

77 

C38D7C 



EQU 
LDA 
ANI 
JNZ 
MVI 
LXl 
ORA 
MOV 



$ 

DFLGS 

DCCA 

DCTX1 

A,BKTR6 

H,CFLGS 

M 

M,A 



JMP DCTX1 



;GET THE DATACOM FLAGS 
;IN 202 RECEIVE HODE? 
;YES - RETURN WO/SETTING FLA 
;N0 - SET THE BLOCK TRANSFER 
; TRIGGER 



;RETURN 



RSTDCM - RESET DATACOM 



RTDCW 



CE)7379 
C38D7C 



EQU S 
CALL RTDCB 
JMP DCTX1 



;RESET OATACOFi 
;RETURN 



FLAGS AND PTR 



STRMTE - SET REMOTE f^ODE 



SRMTE 



F3 

3AF9FF 

67 

CD9079 

FB 

C38D7C 



EQU $ 

DI 

LDA KJMP3 

MOV H,A 

CALL RTSRM 

EI 

JMP DCTX1 



;READ DC JUMPERS 

;SAVE IN H 

; DO PARTIAL RESET 



;RETURN 
; STLOCL - SET LOCAL MODE 

SLOCL EQU DCTX1 ;N0 FUNCTION 

t 

; BREAK - OUTPUT BREAK SIGNAL 



7CB4 




BREAK 


EQU 


$ 


7CB4 


CD9A7D 




CALL 


CKDCM 


7CB7 


3AAC91 




LDA 


DCCT 


7CBA 


F640 




ORI 


DCSA 


7CBC 


67 




KOV 


H,A 


7CBD 


3AFCFF 




LDA 


KDCSW 


7CC0 


E63E 




ANI 


BUDPT 


7CC2 




BK005 


EQU 


$ 


7CC2 


B4 




ORA 


H 


7CC3 


324081 




STA 


IDCCT 


7CC6 


21E17C 




LXI 


H,BK050 


7CC9 


3E15 




MVI 


A, 21 


7CCB 




BK010 


EQU 


$ 


7CCB 


32B591 




STA 


DDLAY 


7CCE 


22B191 




SHLD 


DC TEX 


7CD1 


21497C 




LXI 


H^DDCNT 


7CD4 


22B691 




SHLD 


DRVEC 


7CD7 


CD9A7D 




CALL 


CKDCM 


7CDA 


FB 




EI 




7CDB 


C38D7C 




JMP 


DCTX1 



;MAKE SURE DATA COMK IS IDLE 

;READ CONTROL WD 

;ADD IN BREAK BIT 

;SAVE CONTROL BYTE 

;READ SWITCHES 

;CLEAR H/F AND CA BITS 



;SET INTERFACE TO BREAK 
;SET BREAK EXIT AND BREAK 
;TIME (210 MSEC) 

;SET DELAY INTERVAL 
;SET EXIT ROUTINE 
;SET MONITOR VECTOR TO 

;DELAY CONTINUATOR 
;WAIT UNTIL DELAY IS COMPLET 
;ENABLE INTERRUPT 
^RETURN SUCCESSFUL 



7CDE 



DISCONNECT EXIT ROUTINE 



0C10O EQU 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
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7Ct)E 



7CE1 
7CE1 
7CE4 
7CE5 
7CE8 
7CEA 
7CEA 
7CEB 
7CEE 
7CF1 
7CF4 



7CF5 
7CF5 
7CF8 
7CFB 
7CFD 
7D00 



7D03 
7D03 
7D04 
7D07 
7D08 
7D09 
7D0B 
7D0C 
7DO0 
7D0F 
7D12 
7D15 
7D17 
7D1A 
701A 
7D1D 
7D1F 
7022 
7D25 
7D27 
7D27 
7D2A 

7B2D 
7D2D 
7D30 
7D32 
7{)35 
7038 
7D3A 



3A6081 



3AAC91 
67 

3AFCFF 
E63E 

84 

324081 

21067B 

22B691 

C9 



CD9A7D 

3A6881 

3E65 

21DE7C 

C3CB7C 



E5 

21B891 

F3 

7E 

E6EF 

77 

FB 

E680 

32AE91 

3A4081 

E680 

CA2D7D 

3A2181 

E602 

CA1A7D 

C09A7D 

3E01 

213D7D 
C3CB7C 



3A2081 

E602 

CA2D7D 

CD9A7D 

3E0A 

C3277D 



LDA DCTL2 
BREAK EXIT ROUTINE 



BK050 



BK100 



EQU 

LDA 

MOV 

LDA 

ANI 

EQU 

ORA 

STA 

LXI 

SHLD 

RET 



$ 

DCCT 

H, A 

KDCSW 

BUDPT 

$ 

H 

IDCCT 

H,DCMON 

DMVEC 



ERRORS = PAGE 23 



SET CD BACK ON 



READ CONTROL WD 
SAVE CONTROL BYTE 
READ SWITCHES 
CLEAR H/F AND CA BITS 



;RESTORE MONITOR VECTOR 
;RETURN 



DSCNCT - MODEM DISCONNECT 



DCNCT 



EQU 

CALL 

LDA 

MVI 

LXI 

JMP 



$ 

CKDC.M ;MAKE SURE DATA COMM IS IDLE 
DCTL2+CD0FF ;TURN OFF DATA TERMINAL 
A,1C1 ;READY (CD) FOR ONE SECOND 
H,DC100 ;SET EXIT ROUTINE ADDRESS 



BK010 



SET MONITOR ROUTINE JUMP 



TRHBIN - TERP^INATE BINARY OUTPUT 



TMBIN 



TM005; 



TM010 



TM012 



TM015 



EOU 

PUSH 

LXI 

DI 

MOV 

ANI 

MOV 

EI 

ANI 

STA 

LDA 

ANI 

JZ 

EQU 

LDA 

ANI 

JZ 

CALL 

WVI 

EQU 

LXI 

JHP 

EQU 

LDA 

ANI 

JZ 

CALL 

RVI 

JMP 



H 
H,DFL6S 

A,H 
377Q-F9600 

M,A 



;CLEAR FAST BINARY 



FRPAR 

FMASK 

IDC PC 

GASYC 

TM015 

$ 

IDCS2 

DC TEE 

TM010 

CKDCM 

A,1 

$ 

BK010 

$ 

IDCST 
OCTBE 
TW015 

CKDCM 
A, 10 
TM012 



;SET FP MASK 

;6ET DATA C0f<5W PROGRAM STRAP 

;IS IT THE 6P ASYNC BOARD? 

;N0 

;YES - DROP REQUEST TO SEND 

;6ET AUXILARY STATUS 

;TRANSMIT BUFFER EMPTY? 

;N0 - CONTINUE WAITING 

;MAKE SURE DATA COMM IS IDLE 

; DELAY FOR 10 PISEC 



;SET 
;SET 



EXIT 
MONITOR 



JUMP ADDRESS 



;READ STATUS 

;IS XMIT BUFFER EMPTY? 

;N0 
;CHECK DATA COMM IDLE 
;SET DELAY 100 MSEC 



CONTINUATION FOR BINARY TERMINATE 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 
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20 
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ERRORS 



PAGE 24 



7&3D 




7D3D 


21AC91 


7D40 


7E 


7D41 


E681 


7D43 


77 


7D44 


F601 


7D46 


67 


7D47 


3AFCFF 


7D4A 


E63E 


7D4C 




7D4C 


B4 


7D40 


324081 


7D50 


3E01 


7D52 


21E17C 


7D55 


32B391 


7D58 


228191 


7D5B 


21497C 


7D5E 


22B691 


7D61 


C9 



7B62 




7D62 


3E02 


7D64 


21B891 


7067 


F3 


7D68 


B6 


7069 


77 


706A 


FB 


7D6B 


AF 


706C 


32AE91 


7D6F 


C3807C 



7072 




7072 


3EF0 


7074 


21B891 


7077 


F3 


7078 


A6 


7079 


77 


707A 


FB 


707B 


E680 


7070 


32AE91 


7080 


C38D7C 



7083 
7083 
7086 
7088 
708B 
708E 
708F 
7090 
7092 
7093 
7094 



3AFBFF 

E620 

CA9470 

21B891 

F3 

7E 

F610 

77 

FB 

CD5679 



TM020 



TW030 



EQU 

LXI 

MOV 

ANI 

MOV 

ORl 

«0V 

LOA 

ANI 

EQU 

ORA 

STA 

MVI 

LXI 

STA 

SHLO 

LXI 

SHLO 

RET 



$ 

H,DCCT ;SET OCCT AOOR 

A,H ;GET CONTROL WD 

DCCH+DCCA ;CLEAR NO PARITY 

M,A ;SET NORMAL 

OCCA ;SET REQ TO SEND OFF 

H,A 

KOCSW ;TURN OFF REQUEST TO SEND 

BUDPT ;CLEAR H/F AND CA BITS 



H 

IDCCT 

A,1 

H,BK050 

ODLAY 

DCTEX 

H,DDCNT 

DMVEC 



;SET FOR 10 MSEC INTERVAL 
;EXIT VIA "BRKOSO"' 



;SET TO DELAY ROUTINE 
;RETURN TO TIHER INTERRUPT 



ENTMON - ENTER MONITOR MODE 



ETMON 



Eau 

MVI 

LXI 

DI 

ORA 

MOV 

EI 

XRA 

STA 

JMP 



$ 

A^TNMOD ;SET TRANSPARENT MODE 

H^DFLGS ;FLAG 



n 

M,A 

A 

FMASK 

DCTX1 



;UPDATE FLAG SETTING 



;RETURN 
RETNRM - RETURN TO NORMAL MODE 



RTNRM 



EQU 

MVI 

LXI 

01 

ANA 

MOV 

EI 

ANI 

STA 

JMP 



$ 

A,577Q-TNM0D ;CLEAR TRANSPARENT MOD 

H,DFL6S 



M 

M,A 

F R PA R 
FMASK 
DCTXl 



;UPDATE FLAG SETTINGS 



;SET FP MASK 
;RETURN 



FSTBIN - FAST BINARY ROUTINE GOTO 9600 BAUD 



FTBIN EQU 
LOA 
ANI 
JZ 
LXI 
01 
MOV 
ORI 
MOV 
EI 

FT010: CALL 



$ 

KJMPR 
FTSND 
FT010 



;REAO JUMPER A-H 

;IS FAST SEND ENABLED? 

;N0 RETURN 



H,,OFLGS ;GET FLAGS 



A,M 

F9600 

M,A 

SRTBN 



;SET FLAG FOR FAST BIN 
;STORE NEW FLAG 

;SET BINARY OUTPUT MODE 
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7D97 



C38D7C 



JMP DCTX1 



ERRORS = PAGE 25 



;RETURN 



************************ 

CHKDCM - WAIT FOR MONITOR TO CLEAR 

ENTRY: DON'T CARE 

EXIT : DCMVEC = DCMON 
H-L DESTROYED 
INTERRUPTS DISABLED 



;GET NORMAL MONITOR ADDRESS 
;DISABLE INTERRUPTS 
;GET CURRENT MONITOR VECTOR 
;IS IT THE NORMAL ROUTINE? 
;N0 - TRY AGAIN 

;DOES MSB MATCH? 
;YES - RETURN 
;N0 - TRY AGAIN 
;RE-ENABLE INTERRUPTS 
;CHECK AGAIN 



*********************************************** 
SNDDC2 - SEND DC2 

ENTRY: DON'T CARE 
EXIT : A DESTROYED 



7D9A 




CKDCM 


ESU 


$ 


7D9A 


21067B 




LXI 


H,DCMON 


7D9D 


F3 




DI 




7B9E 


3AB691 




LDA 


DMVEC 


7DA1 


BD 




CMP 


L 


7DA2 


C2AA7D 




JNZ 


CD020 


7DA5 


3AB791 




LDA 


DMVEC+1 


7DA8 


BC 




CMP 


H 


7DA9 


C8 




RZ 




7DAA 




CD020 


ESU 


$ 


7DAA 


FB 




EI 




7DAB 


C39A7D 




JMP 


CKDCM 



7DAE 




7DAE 


CD857C 


70B1 




7DB1 


3E12 


7DB3 


CD8878 


7DB6 


D8 


7DB7 


C2B17D 


7DBA 


3AFBFF 


7DBD 


2F 


7DBE 


E608 


7DC0 


C8 


7DC1 




7DC1 


3E0D 


7DC3 


CD8878 


7DC6 


D8 


7DC7 


C2C17D 


7DCA 


3AF3FF 


70CD 


E604 


7DCF 


C8 


7DD0 




7DD0 


3E0A 


7DD2 


CD8878 


7DD5 


D8 


7DD6 


C2D07D 


7DD9 


C9 



SDDC2 



SDOIO 



SD020 



SD030 



EQU 


$ 


CALL 


CBKTX 


EQU 


$ 


MVI 


A,DC2 


CALL 


PUTDC 


RC 




JNZ 


S0010 


LDA 


KJWPR 


CMA 




ANI 


PGSTR 


RZ 




EQU 


$ 


MVI 


A,CR 


CALL 


PUTDC 


RC 




JNZ 


SD020 


LDA 


MFLG2 


ANI 


ATOLF 


RZ 




EQU 


$ 


MVI 


A^LF 


CALL 


PUTDC 


RC 




JNZ 


SD030 


RET 





;60 TO CLEAR BLOCK TRIGGER 

;SET DC2 AS CHAR 
;OUTPUT DC2 
;RETURN ON DC ERROR 

;READ KB JUMPERS 
;REVERSE SENSE OF BITS 
;PA6E STRAP IN ? 
;N0 - RETURN 

; SET CR AS CHAR 

;OUTPUT CR 

;RETURN ON DC ERROR 

;READ MODE 

;AUTO LF KEY DOWN? 

;N0 RETURN 

;SET LF AS CHAR 

; OUTPUT LF 

;RETURN ON DC ERROR 

;EXIT 
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7D0A 
7DDA 
7DD0 
7DDF 
7DE2 



7DE5 



****************************************** 
SNDTRR - SEND ED CHAR IF KAIN CHANNEL 



SOTRM 



3AB891 
E621 
C28D7C 
C32979 



EQU 
LDA 
ANI 
JNZ 
JWP 



$ 

DFLGS ;READ FLAGS 
MCHOD+DCCA ;MAIN CHANNEL? 
DCTX1 ;N0 RETURN 
PC060 ;SEND ED CHAR 



* * 



***** 



* * * 



* * 



DCTST - DATACO!*! SELF-TEST 

ENTRY: DON'T CARE 

EXIT r NC - SELF-TEST SUCCESSFUL 
C - SELF-TEST FAILED 
H^L = SELF-TEST P^ESSAGE 
OTHER REGS. DESTROYED 

DCTST EQU $ 
******************* 

DISALLOW DATACOM * 

INTERRUPTS * 

******************* 



;PROCESSOR CONTROL FLAG 



70E5 


3AF9FF 


LDA 


KJMP3 


70E8 


E610 


ANI 


NDCST 


7DEA 


C22B7F 


JNZ 


ST600 


7DED 


21F5FF 


LXI 


H,PCCTL 


7DF0 


F3 


DI 




7DF1 


7E 


MOV 


A,M 


7DF2 


F610 


OR I 


DIOFF 


7DF4 


77 


MOV 


n,fk 


7DF5 


D370 


OUT 


POCSR 


7DF7 


FB 


EI 




70F8 


21347F 


LXI 


H^TMOUT 


7DFB 


22B691 


SHLD 
; ********** 
; DATA COM * 
; ALIVE? * 

;********** 


DMVEC 


70FE 


97 


SUB 


A 


7DFF 


324081 


STA 


IDCCT 


7E02 


0620 


mi 


B^DCCB 


7E04 


48 


MOV 


C,B 


7E05 


CD397F 


CALL 


SATCH 


7E08 


21AA7F 


LXI 


H^SCACB 


7E0B 


CAFC7E 


JZ 


ST 400 



;DON'T LET TIMER ROUTINE 
;REENABLE DATACOM INT. 
;DISABLE DATACOM INT. 



;6IVE CONTROL TO TIHEOUT 
;ROUTINE ON TIMER INTS. 



;RAISE REQUEST TO SEND 

;CHECK FOR CLEAR TO SEND 

;CHECK DATA COM STATUS 
;ERROR MESSAGE POINTER 
;INDICATE FAILURE 



; *************** 

; CHECK DATA * 
; SEND RECEIVE * 
; LOOP * 

;*************** 
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FILE 
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7E0E 
7E10 
7E10 
7E13 
7E15 
7E16 
7E19 
7E1C 

7E1E 
7E1E 
7E20 
7E22 
7E25 
7E28 
7E2B 
7E2C 
7E2F 
7E31 
7E33 
7E36 
7E39 
7E3C 

7E30 
7E3D 
7E40 
7E41 
7E43 
7E46 

7E49 
7E4A 
7E4C 
7E4F 

7E52 
7E53 
7E54 
7E57 

7E5A 
7E5B 
7E5E 
7E61 
7E64 
7E66 



3E20 

32B091 

060E 

80 

324081 

3A0081 

1600 



0602 

OEOO 

CD397F 

21857F 

CAFC7E 

7A 

326081 

0601 

OEOO 

CD397F 

CAFC7E 

3A0081 

47 



3A2081 
4F 

E608 
21 937 F 
C2FC7E 

79 

E604 
219E7F 
C2FC7E 

78 
BA 

21857F 
C2FC7E 

14 

CA697E 

F21E7E 

3AB091 

FE20 

CA1E7E 



7E69 




7E69 


3ABQ91 


7E6C 


FE20 


7E6E 


CA7B7E 


7E71 


FEOO 


7E73 


C2807E 


7E76 


3E10 


7E78 


C3107E 


7E7B 




7E7B 


3E00 



MVI 
ST130 EQU 
STA 
MVI 
ADO 
STA 
LDA 

wvi 

; SEND CHAR 

ST170 EQU 
MVI 
MVI 
CALL 
LXI 
JZ 
MOV 
STA 
KVI 
MVI 
CALL 
JZ 
LDA 
MOV 

; CHECK PAR 

ST200 EQU 
LDA 
MOV 
AMI 
LXI 
JNZ 

; OVERRUN E 
MOV 
ANI 
LXI 
JNZ. 

; CHECK CHA 
MOV 
CMP 
LXI 
JNZ 

; DO NEXT C 
INR 
JZ 
JP 
LDA 
CPI 
JZ 



AyDCNP 

$ 

TARIT 

B^B9600 

B 

IDCCT 

IDCDI 

D,0 
ACTER 

$ 

B,DCTBE 

C,0 

SATCH 

H,SDATA 

ST400 

A, D 

IDCOO 

B^DCDP 

C,0 

SATCH 

ST400 

IDCDI 

B^A 
ITY 

$ 

IDCST 

C,A 

DCPE 

H, SPARE 

ST400 
RROR? 

A,C 

DCOE 

H^SOVRE 

ST 400 
RACIER 

A,B 



h,sdata 

ST400 
HARACTER 
D 

ST260 
ST170 
TARIT 
DCNP 
ST170 



ERRORS = PAGE 27 



;SET INITIAL PARITY - NONE 



;9600 BAUD 

;COMBINE BAUD RATE AND PARIT 
;SET THEM 
;CL£AR DATA IN REGISTER 
;INITIALIZE TO FIRST CHAR 



;WAIT TILL XMIT BUFER MT 



;IN CASE OF FAIL 
; FAILURE 

;SEND DATA 

;WAIT UNTIL DATA PRESENT 



;FAILED-NO CHAR REC*D 
;6ET CHARACTER 
;SAVE 



DATACOM STATUS 

SAVE 

PARITY ERROR BIT SET? 

PARITY ERROR MSG PTR 

YES, ERROR 

STATUS 
CHECK BIT 
MSG POINTER 
ERROR 



;DATACOM CHARACTER 
;SAHE AS SENT? 
;ERROR POINTER 



BUMP TO NEXT CHARACTER 
WAS 8 BIT TEST, DONE 
.LE. 177B 
NO PARITY? 

;YES, USE 8 BITS 



DO NEXT PARITY SETTING 



ST260 



ST280 



EQU 

LDA 

CPI 

JZ 

CPI 

JNZ 

MVI 

JMP 

EQU 

MVI 



$ 

TARIT 

DCNP 

ST280 

DCOP 

ST300 

A,DCEP 

ST130 

A, DCOP 



;N0 PARITY, USE ODD NEXT 

;ODD PARITY 

;N0, MUST BE DONE 

;D0 EVEN PARITY 



;0DD PARITY 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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FILE 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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7E7l> 



7E80 
7E80 
7E82 
7E82 
7E83 
7E86 
7E87 
7E88 
7E8A 
7E88 
7E8E 
7E8F 
7E92 
7E94 
7E96 
7E99 
7E9C 
7E9F 
7EA2 
7EA3 
7EA6 
7EA8 
7EAB 
7EAE 
7EB1 
7 £84 
7EB5 
7EB8 



7EBB 
7EBB 
7EBE 
7EBE 
7EBF 
7EC0 
7EC3 

7 EC 4 
7EC7 
7EC9 
7ECA 
7ECB 
7ECC 
7ECF 
7ED2 
7 ED 5 
7E&7 
7ED8 
7ED9 
7EDA 



C3107E 



1607 

15 

CABB7E 

7A 

07 

0620 

80 

324081 

97 

326081 

0601 

OEOO 

CD397F 

21857F 

CAFC7E 

3 A 0081 

B7 

C2FC7E 

3EFF 

326081 

CD397F 

CAFC7E 

3A0081 

3C 

C2FC7E 

C3827E 



11C97F 

1A 
3C 

CAF57E 
3D 

324081 

0620 

13 

1A 

4F 

CD397F 

21B47F 

CAFC7E 

0610 

13 

1A 

4F 

CD397F 



J MP ST 130 



; TEST OTHE 
; BAUD RATE 

; ********** 

ST300 EQU 
MVI 

ST320 EQU 
OCR 
JZ 
MOV 
RLC 
MVI 
ADD 
STA 
SUB 
STA 
MVI 

mi 

CALL 

LXI 

JZ 

LDA 

ORA 

JNZ 

WVI 

STA 

CALL 

JZ 

LDA 

INR 

JNZ 

JKP 

******** 
TEST * 
LINES * 

******** 

EQU 
LXI 



*** 

R * 
S * 
*** 

$ 

0,7 

$ 

D 

ST340 

A,D 

B,DCNP 

B 

IDCCT 

A 

IDCDO 

B,DCDP 

CO 

SATCH 

H^SDATA 

ST400 

IDCDI 

A 

ST400 

A,377Q 

IDCDO 

SATCH 

ST400 

IDCDI 

A 

ST400 

ST320 



ST340 
ST36C 



;BAUO COUNTER 

;D0 next baud RATE 
;ALL BAUD RATES TESTED 
; FORMAT CONTROL WORD 
;SHIFT TO BITS 1-3 
;N0 PARITY 

;SET NO PARITY AND BAUD 

;SEND NULL 



;WAIT FOR DATA 

;ERROR «S6 

;N0 DATA RECEIVED 

;6ET DATA 

;IS IT ZERO? 

;N0, ERROR 

;SEND ALL ONES 



; ERROR 
;CHECK DATA 

;NOT 377, ERROR 
;D0 NEXT BAUD RATE 



D,LNTBL 
EQU $ 
LDAX D 
INR A 
JZ ST380 

DCR A 
SET DATACOM CONTROL 
STA IDCCT 



;TABLE OF PATTERNS 

GET DATACOM CONTROL WORD 

END? 

DONE, ALL TESTS PASSED 

RESTORE A 



KVI 

INX 

LDAX 

WOV 

CALL 

LXI 

JZ 

mi 

INX 
LDAX 
MOV 
CALL 



B,DCCB 

D 

D 

C,A 

SATCH 

H,STCB 

ST400 

B,DCCF 

D 

D 

C,A 

SATCH 



;CHECK CB 
;BUMF TO NEXT 



TABLE ENTRY 



;CB ERROR 
;CHECK CF 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2C 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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7EBD 


21BB7F 


7EE0 


CAFC7E 


7EE3 


0640 


7EE5 


13 


7EE6 


1A 


7EE7 


4F 


7EE8 


CD397F 


7EEB 


21C27F 


7EEE 


CAFC7E 


7EF1 


13 


7EF2 


C3BE7E 



7EF5 
7EF5 
7EF8 
7EF9 



LXI 


H,SCACF 




JZ 


ST400 


;ERROR 


KVI 


8,DCSB 


; CHECK SB 


INX 


D 




LDAX 


D 




MOV 


C,A 




CALL 


SATCH 




LXI 


H^SBKSB 




JZ 


ST 400 


;ERROR 


INX 





;BUMP TO NEXT TEST SET 


JMP 


ST360 





*************** 
REPORT FINAL * 
STATUS BACK * 

*************** 

GOOD STATUS 



ST380 



21687F 

A7 

C3037F 



EQU 


$ 


LXI 


H^SGOOD 


ANA 


A 


JMP 


ST520 



;600D STATUS 
;CLEAR CARRY 
; FINISH 



ERRORS 



7EFC 




ST400 


EQU 


$ 


7EFC 


22EBFF 




SHLD 


MGPT4 


7EFF 


217E7F 




LXI 


H,SFAIL 


7F02 


37 




STC 








;********* 








; RETURN * 








. ********* 




7F03 




ST520 


EQU 


$ 


7F03 


F5 




PUSH 


PSW 


7F04 


22EDFF 




SHLD 


MGPT3 


7F07 


0601 




MVI 


B^DCOP 


7F09 


OEOO 




MVI 


C,0 


7 FOB 


CD397F 




CALL 


SATCH 


7F0E 


3A0081 




LDA 


lOCDI 


7F11 


21067B 


# 


LXI 


H^DCMON 


7F14 


22B691 




SHLD 


DMVEC 


7F17 


21F5FF 




LXI 


H^PCCTL 


7F1A 


F3 




DI 




7F1B 


7E 




MOV 


A,M 


7F1C 


E6EF 




ANI 


377Q-DI0FF 


7F1E 


77 




MOV 


M,A 


7F1F 


FB 




EI 




7F20 


F1 




POP 


PSW 


7F21 


215D7F 


ST530: 


LXI 


H,SSFTS 


7F24 


22EFFF 




SHLD 


M6PT2 


7F27 


214C7F 




LXI 


H^DTYPE 


7F2A 


C9 




RET 




7F2B 


216B7F 


ST600: 


LXI 


H,SDISA 


7F2E 


22EDFF 




SHLD 


MGPT3 


7F31 


C3217F 




JMP 


ST530 



;SET FAIL WS6 
;FAIL LITERAL 
;SET CARRY TO 



INDICATE ERROR 



;SAVE FLAGS 
;SET MESSAGE 



; CLEAR 



TYPE 
CHARACTER INPUT 



BUFFE 



;RESET DC MONITOR ADDRESS 
;PRECESSOR CONTROL FLAG 

;ENABLE DATACOM INTS. 



;SET DATACOM TYPE MESSAGE 



*************************** 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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7F34 
7F34 
7F37 
7F38 



7F4C 
7F4C 
7F5 
7F54 
7F58 



21AF91 

35 

C9 



7F39 




7F39 


3E14 


7F3B 


32AF91 


7F3E 




7F3E 


3A2081 


7F41 


AO 


7F42 


A9 


7F43 


CO 


7F44 


3AAF91 


7F47 


B7 


7F48 


C23E7F 


7F4B 


C9 



TIf*!lN6 ROUTINE * 

THIS IS CALLED ON * 

EVERY TIMER INTERRUPT * 
AND DECREMENTS A COUNTER * 

* 

ENTRY: DON»T CARE * 

EXIT: H,L, FLAGS * 

CHANGED * 

*************************** 

TMOUT EQU $ 

LXI H,TOCNT ; COUNTER 

DCR n 

RET 

************* it*************** 



CHECK 
AND 

ENTRY 



OATACOM STATUS 
WATCH FOR TIMEOUT 



TO 



B = 
BE 



C = 
TO 
C = 
TO 



BIT IN STATUS 
EXAMINED 



BIT 



BIT 



B IF WE WANT 

TURN ZERO 

IF WE WANT 

EQUAL ONE 
— SO EXCLUSIVE OR OF 
STATUS AND C REG IS 
NON ZERO WHEN BIT 
BECOMES THE VALUE 
WE ARE LOOKING FOR 



NOT 



EXIT: A= IF BIT DID 
TURN BY 400 MS 

A .NE. OTHERWISF 
OTHER REGS. SAVED 
***************************** 
SATCH EQU $ 

MVI A, 20 
STA TOCNT 
; EXAMINE STATUS 
SW100 



/INITIALIZE COUNTER 



TIME 



EQU 


$ 


LDA 


IDCST 


ANA 


B 


XRA 


C 


RNZ 




OUT 


YET? 


LDA 


TOCNT 


ORA 


A 


4HI 


SW100 


RET 





;GET BIT DESIRED 
;BIT IN RIGHT STATE? 



;TIME OUT COUNTER 

;ZERO? 

;N0 

;YES, NEVER FOUND RIGHT STAT 



************ 
SELF TEST * 

LITERALS * 

************ 



DTYPE 



42415349 
43204441 
54412043 
4F4D4D 



EQU 

DB 



$ 
'BASIC 



DATA COMM 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 20 
FILE 20 
FILE 20 

7F5B CCOO DB EOL,0 FILE 20 

7F5D SSFTS E6U $ FILE 20 

7F5D 53454C46 DB 'SELF TEST '^0 FILE 20 

7F6t 20544553 FILE 20 

7F65 542000 FILE 20 

7F68 SGOOD EQU $ FILE 20 

7F68 4F4BCE DB 'OK'^EOP FILE 20 

7F6B SDISA EQU $ FILE 20 

7F6B 4552524F DB 'ERROR (DISABLED) '^EOP FILE 20 

7F6F 52203020 FILE 20 

7F73 28444953 FILE 20 

7F77 41424C45 FILE 20 

7F7B 4429CE FILE 20 

7F7E SFAIL EQU $ FILE 20 

7F7E 4552524F OB 'ERROR ',0 FILE 20 

7F82 522000 FILE 20 

7F85 SDATA EQU $ FILE 20 

7F85 3320284C DB '3 (LOST CHAR)»,EOP FILE 20 

7F89 4F535420 FILE 20 

7F8D 43484152 FILE 20 

7F91 29CE FILE 20 

7F93 SPARE EQU $ FILE 20 

7F93 322Q2850 DB "2 (PARITY) "^EOP FILE 20 

7F97 41524954 FILE 20 

7F9B 5929CE FILE 20 

7F9E SOVRE EQU $ FILE 20 

7F9E 3320284F DB '3 (OVERRUN) '^ EOP , FILE 20 

7FA2 56455252 FILE 20 

7FA6 554E29CE FILE 20 

7FAA SCACB EQU $ FILE 20 

7FAA 3120284E DB »1 (NO CB)»,EOP FILE 20 

7FAE 4F204342 FILE 20 

7FB2 29CE FILE 20 

7FB4 STCe EQU $ FILE 20 

7FB4 34202843 DB '4 (CB)%EOP FILE 20 

7FB8 4229CE FILE 20 

7FB8 SCACF EQU $ FILE 20 

7F8B 34202843 DB '4 (CF)«,EOP FILE 20 

7FBF 4629CE FILE 20 

7FC2 SBKSB EQU $ FILE 20 

7FC2 35202853 DB "5 (S8)»,E0P FILE 20 

7FC6 4229CE FILE 20 

FILE 20 

;****************************** FILE 20 

; DATACOM LINE TEST PATTERNS * FILE 20 

; ♦ FILE 20 

; 4 BYTES/ENTRY-TEST * FILE 20 

; 1ST = DATACOM CONTROL BYTE * FILE 20 

; 2ND = CB WORD * FILE 20 

; 3RD = CF WORD * FILE 20 

; 4TH = SB WORD * FILE 20 

; THESE LAST 3 BYTES GO TO * FILE 20 

; C REG WHEN STATCH CALLED * FILE 20 

;****************************** FILE 20 

LNTBL EQU $ FILE 20 

DB ;NOT CA = 0, BRK = FILE 20 

DB DCCB ;NOT CB = FILE 20 

DB DCCF ;NOT CF = FILE 20 

DB ;NOT SB = 1 FILE 20 

FILE 20 



7FC9 




7FC9 


00 


7FCA 


20 


7FCB 


10 


7FCC 


00 
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7FCD 


01 


D8 


1 


7FCE 


00 


DB 





7FCF 


00 


DB 





7FD0 


40 


DB 


DC SB 


7FD1 


41 


DB 


101Q 


7FD2 


00 


DB 





7F03 


00 


&B 





7FD4 


00 


DB 






7FD5 



FF 



DB 



END 
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= 



;NOT 


CA = 1, BRK 


;NOT 


CB = 1 


;NOT 


CF = 1 


;NOT 


SB = 


;CA = 


= 1, BRK = 1 


;H01 


CB = 1 


;NOT 


CF = 1 


;NOT 


SB = 1 



377Q 



END OF TABLE 



NO PROGRAM ERRORS 



FILE 
FILE 
FILE 
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SYMBOL TABLE 



* 01 



ft 


0007 


ACAN 


0018 * 


ACK 


0006 


A DEL 


007F 


ANULL 


0000 * 


ATOLF 


0004 


ATTRM 


0001 * 


B 


0000 


B9600 


000 E 


8K005 


7CC2 * 


BK010 


7CCB 


BK050 


7CE1 


BK100 


7CEA * 


BKMDE 


0002 


BKTRG 


0001 


BKTRM 


7804 * 


BNMOD 


0004 


BREAK 


7CB4 


BUDPT 


003E 


C 


0001 


CBASE 


OOFF 


CBKTX 


7C85 


CBLTR 


7C86 


CD020 


7DAA 


COOFF 


0008 


CEKCC 


0040 


CFL6S 


FFF8 


CIJMP 


FFEO 


CIVEC 


FFE1 


CKDCM 


7D9A 


CKSTP 


0004 


CKMON 


FFFF 


CNOIS 


0001 * 


CPSLK 


0001 * 


CR 


GOOD 


CRTR6 


0000 * 


CRTRM 


00C2 * 


CSTOR 


FFOO * 


CSTRP 


0008 


D 


0002 


&2SND 


0080 * 


DBASE 


0091 * 


DBF86 


91B9 


DBFSZ 


0060 


OBPTR 


91BD 


D C 1 00 


7CDE 


DC2 


0012 


DCCA 


0001 


DCCB 


0020 


DCCC 


0080 


DCCF 


0010 


DCCH 


0080 


DCCT 


91 AC 


DCCTL 


7C55 


DCDP 


0001 


DCEP 


0010 


DCMON 


7B06 


DCNCT 


7CF5 


DCNP 


0020 


DCOE 


0004 


DCOP 


0000 


DOPE 


0008 


DCRDX 


OOOA * 


DCSA 


0040 


DCSB 


0040 


DCTAB 


7C6B 


DCTBE 


0002 


DCTEX 


91B1 


0CTL2 


8160 


DCTST 


7DE5 


DCTX1 


7C8D 


DDCNT 


7C49 


DDLAY 


91B3 


DFLGS 


91 B8 


DFSKY 


0008 * 


DINTR 


7826 


DIOFF 


0010 


DJMK2 


7806 ♦ 


DJMPO 


0080 * 


DJMPI 


0001 * 


0JMP2 


0002 * 


DJMP3 


0004 * 


DJMP4 


0008 * 


DJMSK 


7805 * 


DM002 


7B19 


DM005 


7B37 


DM010 


7B3A 


DM03 


7B4F 


DM 040 


7B5E * 


0M050 


7B66 


DM05 5 


7880 


DM060 


7B88 


DM070 


7BB0 * 


DM075 


7BB6 


DMiOO 


7BC2 


DM105 


7BD1 


0M110 


7BDE 


DM150 


7BFE 


DM160 


7C22 


DMERR 


0001 


DMJMP 


91B5 


DMVEC 


91B6 


DPFNC 


0001 * 


DSCNT 


0006 * 


DSPST 


FFFE 


DSPTR 


91BB 


OSTAT 


91BF 


DSTOR 


91C0 


DT010 


7C3F * 


DTURN 


7C2C 


OTYPE 


7F4C 


E 


0003 


ECFL6 


FFD1 


EDBLK 


0007 * 


EDCHR 


91 AD 


EDIT 


0010 * 


ENQ 


0005 


EOL 


OOCC 


EOP 


OOCE 


EOT 


0004 


ERFL6 


FFF7 


ETMON 


7D62 


ETWRP 


0008 * 


ETX 


0003 


EXSTP 


0002 


F9600 


0010 


FCPTY 


0080 


FCRST 


0004 * 


FLDUP 


008 * 


FMASK 


91AE 


FORGN 


0080 * 


FRMAT 


0008 * 


FRPAR 


008 


FT010 


7D94 


FTBIN 


7D83 


FTRAM 


9100 


FTSNO 


0020 


6ASYC 


0080 


GC001 


79F1 


GC002 


7A20 


GC004 


7A25 


6 COOS 


7A26 


6C007 


7A40 


GC008 


7A4E 


6C010 


7A66 


GC012 


7A9A 


GC014 


7AA3 


GC015 


7AAE 


GC020 


7ABD 


GC030 


7AC8 


GC050 


7AEB 


GETDC 


79E2 


60BIN 


0008 


6TBIN 


7AEF 


H 


0004 


HDSHK 


0040 * 


IBASE 


0080 


ICS6N 


FFDD 


IDATA 


FFDE 


IDCCT 


8140 


IDCDI 


8100 


I DC DO 


8160 


IDCPC 


8140 


IDCS2 


8121 


IDCST 


8120 


II2DC 


796F 


IITDC 


796B 


IKBLD 


8300 * 


INVRS 


0082 * 


lODC 


8100 


lOKB 


8300 


IPSGN 


FFDC 


ISCHR 


0002 * 


ISWRP 


0002 * 


IT020 


7856 


1T050 


785C 


IT100 


7865 


IT130 


7877 


1T160 


7883 


IT170 


788 4 


ITFL6 


FFF6 


ITVEC 


9165 


JMPCD 


0OC3 


KDCSW 


FFFC 


KJMP2 


FFFA 


KJMP3 


FFF9 


KJMPR 


FFFB 


L 


0005 


LF 


000 A 


LFPOS 


0010 * 


LNTBL 


7FC9 


LNWRP 


0004 * 


LRCHK 


0004 * 


M 


0006 


MCHAN 


0003 


MCMOD 


0020 


MFL61 


FFF4 


MFLG2 


FFF3 


MGPT1 


FFF1 


MGPT2 


FFEF 
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